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i. SESTRACT 
é. REQUIREMENTS 
2.3 ESUIPMENT 


2.2 STORAGE 
2.3 PRELIMINGRY ERC GERMS 

2. LORDING PROCEDURE 

4. STARTING PROCEDURE 

+01 CONTROL SWITCH SETTINGS 
*.2 STARTING ADDRESS 


+. PROGRAM AND/OR OFERATOS 92752" 
5. OPERGTING PROCEDURE 


$.1 OPERATIONAL SWITCH SETTINGS 


5.2 SUBROUTINE SSS7S50° 
& ESECRS 

?, RESTRICTIONS 

g. MISCELLANEOUS 

8.1 EXECUTION TIME 

8.2 STACK POINTES 

8.3 POWER FALL 

5 PROGRAM DESCRIETI > 
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z. PEQUISEMENTS 
2. EGUIEMENT 
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LINeED OGF “5 ok Kia oN = cEcsS 3sYs M-10. 
2.3 PRELIMINARY PROGRAMS 
--3ee~ © -~- 
wur Pe EU OCF com 
3 LORDING PEOCEDURE 
USE STANDARD PROCEDURE FOR ASS "APES 
- STRETING PROCEDURE 
%.] CONTROL SWITCH SETTINGS 
SEE §.i.3 (ALL DOWN FOR WORST CaSE TESTING 


4.2 STARTING ACORESS 
THE PROGRAM SHOULD ALWAYS BE STSRTED 4° 222 
4.3 PROGRAM ANC/OR OPERATOR ACTION 
1 LORD P POGRAM INTO MEMORY USING 8S LORCES. 
c+ pwr ae cs ewe. 
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ist neeseer ty 

:_s 

3, 

iss 5) THE PROGRAM WILL nett Wt: BELL WILL RING ONCE EVERY re5%, 
oe rt Jf i 
ts Fue ter} BYTE AND T ae fhe ais TO use, SET THE 
iEt SATA DISPLAY SulTCH 70 THE eet! Bett tON, 

iEs ¢. OPERATING PROCEDURE 

Ht rg 5.1 OPERATIONAL SWITCH SETTINGS 

155 (D> @ 1 vetoes HOLT ON ERROR 

py Aa (29? @ f wesseus 

ie: SWId> =f cilll. THM ISIT PR INTO 

ig? Sule e foo... INHIBIT TRACE reser ; 

ies Swild> @ 2 ool... JNMIBIT ITERATIONS OF SUSTEST 

PS SWi1D> w | .cecee BELL ON ERROR 

ies “ D vciiad BELL ON PASS COMPLETE econ 

isé Sw9M @ J lol. CORE IMAGE TYPE-OUT (18 817 HOPES 

ie5 D euilaah FLOATING POINT TYPE-OLT (SIGN. ExPone6e 
ie8 MANT ISSA) 

755 SW08> = } ...... LOOP ON TEST IN SWe7:0) 

235 Bicone LORD Swi7:0) INTS US REGISTES 

(5 5.2 SUBROUTINE ABSTRACTS 

175 5.2.: SCOPE 

17? THIS SUBROUTINE CALL IS PLACED SETWEEN EACH SUBTEST IN THE 
:72 Test 361! RECORDS STARTING AODRESS OF Eac- 
75 ’ SUBTEST AS IT IS BEING ENTERED OCATION “LAO. IF -¢ 
tee SCOPE LOOP IS REQUESTED, THE CURRENT SUBTEST WILL SE LOOPED 
ies : UPON, —SW<1L> L INH{BITS ITERATION SUBTESTS. THE 
122 CONTENTS OF LAD MAY BE USED TO DETERMINE THE LOST SuSTE:* 
122 SuecESSPULLY COMPLETED, Lag 1S UPDATED INSIOE ERSH_ SITE: 
.c6* THE FORTRAN ANSWER IS cAL ou 50 THRT THE 
ie PEESTIONS WILL INCLUDE SNCY THE FEIT BEETESA cP cue cose. 
4 6.2.08 7 

i€5 THIS ROUTINE PRINTS QUT AN ERROR MESSAGE (SEE 6.1. 7 
ree INHIBIT TYPEOUTS, PUT Swcl3> ON'A 1. 

2 SE $.2.3 TRTRAP 

— gE SHi12> 15 ON GO, THE T SIT WILL S& SET ON ALTERNATE 
ise PASSES. WHEN SET, "IT CAUSES A TRAP AFTER EACH INSTRUCTION 
$e THE FIRST INSTRUCTION EXECUTED UPON TRAPPING IS an "aTT* 
i=? WHICH RETURNS TO Toe INTERSUPTED SEGWENCE CF SASTELCTIONS 
1e¢ THIS SEQUENCE IS CONTINUED UNTIL THE END IF tHE” PacdRa®” 2: 
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Mar! oT Sl U-0-0 FPil DIVIDE EXERCISER PasE 86S 
° DESC IPT 


$.z.4 TRAPCATCHER 


& "42" = “HALT” SEQUENCE IS REPEATED FROM 0 - 776 TS “AT? 
GNY’ UNEXPECTED TRAPS. THUS ANY UNEXPECTED TRAPS 2 
INTERUPTS WILL HALT AT THE VECTOR ¢ 2. 


$.2.5 FLOATING POINT TRAP (TC 244) 


SINCE SOME OF THE ais HAVE INTERRUPTS FEARED, «| 
LOATING POINT TRAP BR) CHECKS TC_ Ste iF 44 
SOT AN ERROR CONDIT STRAN fend INDICATE 
EPEOR OF IMT INTERRSeTS. “here Fiseat D aN ERR HLT COClURS 


Tee eeeeeeeevenTentententertey 
CWC OO OC ot pC oC 0O Oe oe > 
*C Wetetee” DENOTE EC ceetepe +o 


“0 +8 +8 +e « 


“00 
myre ih 


uw 


Pal AAR ai: ina 


CUT UT eae elena rententententententes 


; 5 N INTERRUPT Hes N cIPATE ED, BUT Oron’t a) 
i THE SuaTest it Li DETECT THE ERROR 
= : ERRORS 

6.1 ERROR PRINTOUT 


THE FORMAT IS AS FOLLOWS: 
GODRESS, a OPERATOR. OPERANDS, ESLSLS 


ER 
FORTRAN: ANSWER, Fe FEC: FES 


WHERE : 


ROORESS ADORESS OF ERROR HLT 


= RANDOM FLOATING ect NTN AnBER INPLTS 
ony NOE TE OPERATOR (+ “3 - 


FLOATING POINT ANSWER 


0 DEP OU DOP ONDE. GPU = C20 SOIT 2 COD) +O be OPCED SOP ENT £ Can tere 


ii SECU UL OOL CU ee eel eelevievlevlallanlitlislsulatiasl 


D 
= 4 
a 
= 
me 
6] 
ooh oe te te oe eee 


PERI ARIES ARIAS ARIAL AULESIAULASIARIDELAULAC AOL ARIAL SEL ASLASLADIALIAVION ARIAS ATIALlAT iat) 


FEC FLOATING EXCEPTION CODES (ERROR CODES: 
¥ FEA FLOATING EXCEPTION ADDRESS <ERSCR AcDaess 
“3 TO FIND THE FAIL NG TEST, LOOK AT THE LISTING ABOVE ‘THE 
-- ADDRESS TYP 
“é 
47 £.2 E RECOVERY 
+5 RESTRET AT 209 
5: ?, RESTRICTIONS 
eS NONE 


te 
er 


* @€»5 


Coe etetenteneatentententey 


EMI MIAIALIALOATAAI RIAA AL Lil lal ealial ial 


"COPED DOPED EC te +O Oe pereery 


wae 1-3-3 
JOP Gate 


3~-)-3 


~)- 


“C0900 C0009 09000 000 a COCO CO O00 CD COcR aD 


COC GCG CO GI C0G0 GU GITO PO PUTO EU DOPUTO PULU POPU LO PUTO LO POTOTUTUTU CU TO PUPOTUCUTOTUOTOTUT Urine 
C00 CP OF Conue C00 00 JOP CN Gare + C.000 > JOP ON 8. Gate C).00n 
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MAINDEC-11-DCFFU-0-0 FPil OLVICE EXERCISER PASE 6 
DESCRIPTION 


8.1 


Li) 


tf 


Cu 


MISCELLANECUS 


EXECUTION TIME 


A BELL WILL RING WITHIN 18 SECONDS WITH SLL SWITCHES Ucwl. 


STRACK POINTER 


rRCK IS INITALLY SET 72 S00 


POWER FAIL 


bok TEST CAN SE POWER Peayee WITH NO ERRORS EXCEPT ON _THE 
FEC AND FEA. TQ USE, START THE TEST AS USUAL AND POWER Olu! 
THEN UP AT ANY TIME. THE PROGRAM SHOULD TYPE “POWER” ANC 
CONTINUE TO RUN WITH NO OTHER TYPEOUTS. 


PROGRAM DESCRIPTION 


THIS PROGRAM TESTS THE DIVIDE INSTRUCTIONS ON THE FPIi IN 
ROUND AND TRUNCATE MODES AND WITH INTERUPTS ON AND OFF. 
EACH PROGRAM a, 3 MANY me eas, CTHE CODE BETWEEN 2 SCOPE 
STATEMENTS) WHICH r~ RUN a ee io Ee TO THE 


NEXT. sh! > at a Bed £8 aUSES £ Ms BE 
NCE. ICN ioe ind) BND “orseay REGISTER 2 5y 
THE ies Each ORE TRIN THE ITERA T IN THE LEFT BYTE 
ANS THE TEST NUMBER IN THE Rant BYTE. ALL THE EUGTESTS 
SHOULD BE RUN SEQUENTIALL Y BY STORTING At 200 3 we 
STA AT THE BEGINNI ca HE _SUBTE 
pee iClbee SUBTEST Put ne TEST NUMBER ‘see ‘cagtine) "int ue 
THE SWITCH REGISTER A uc®> ! re 
TEST WILL BE POOPED * pi Wi B> ie est oR Ts 
RIGHT BYTE IS CHANGED. JF HE TEST 1 BB Sead THE 
PROGRAM WILL BE RUN AS USUA 


THE FORTRAN MATH eres WERE TAKEN UNMOOCIFIED FROM THE 
POP-11 FORT a ne AND ee LED AS SEPERATE POLES, 


THEY ia! jan KED TO MAIN GRAMS VIR LNKX] 
et RY at WHICH aan ainaRy TAPE _IN i. g Noma 
S LUT beware THUS posrare LOAD AND RUN J Ju Li Ik 


ANY STHER BIACNOSTIC PROGRAM 


NCE THE FP11] LOA TOR oMPA 
iNethucrrone me LOD, Lie oR cmBe » BAD cae ake" ees 
USED IN T GRAM, IT 15 POSSIBLE THAat THEY AND NOT THE 


chan et $8 eT TSne foutp CAUSE ERRORS. 
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ThE MAINEC-11-DCFPU-D FLOATING POINT DIVIDE ExERCISER 
oe i" SOVD, SERRA 


1$72, O16] TAL EGUIPMENT CORP.. MAYNARD, MASS 
‘EROS BY KEN’ CHAP 


---—--=— 


; SWITCH USE 

: = 0 - LOAD o> reer ins orf TH SW 7:0 

: = i a sl? 

| : by bi eut fie: 7 

: & - SIGN, EX one MANTISSG 

5 1 - CORE IMAGE ( is” IT WORCS) 

; 10 0 - BELL ON PASS COMPLETE 

: 1 - BELL ON ERROR 

i INHIBIT TTERATIONS 

le inatett ge RACE TRAP 

: id INHIBIT ERROR TYPEOUTS 

; 14 LOOP GN TEST 

; 15 HALT ON ERROR 

sQUTPUT FORM: 

; ODRESS, OPERAND, OPERATOR, OPERAND, EGUALS 

: cee; ANSWER, FPS, FEC, FEA 

: FORTRAN: o = 

3 FES FEC 

: BIT RERSON CODE ERROR 

$ CARRY G ROORESS ae 

4 OVERFLOW 2 oy RROR 

: ZERO ” VIDE By FERS 

: NEGATIVE S EENVERSEON ERROS 

MAINTAINANCE MODE 19 OVERFLOW 

: TRUNCATE oa le UNBERFL OW 
LONG INTEGER MODE 14 UNGEFINED YARIASLE <2 
SOUBLE PRECISION 1s UBREAK TR 


MODE 
INTERUPT ON SiERFLCa ERROR 


INTERUPT ON UNDEF T NED VARIAELE 


O12 GOT CO. NIM ULE GoTue-O) te 


. 
o—+ b+ 0 + bo Be 


NTERUPT ENABLE 


LAG 


Wado WBMIOOH 
Oommoa Ooononmo 
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asia 
050008 RO= %0 
000001 Ri= %1 
rived Re= %“e 
0. R3= %3 
°3 Ras ae 
ware 2 “ 
SP= “6 
030007 PC= %7 
eat acc= %0 
000i ACI= %1 
9002 ACe= “e 
9900093 AC3= hs 
04 ACY= ar) 
0o009S acs= “5 
04 eg: oe 
6 Wd 10 
SW1C= 02000 
004096 SWli= o04000 
010000 SWie= 010000 
020000 SWi3= O20 
7458 Suiz=  ono0 
i s= 
33e 0 SWR= 177570 
177776 PS= 177776 
177570 DISPLAY=SWR 
oo0000 DUMMY= HALT 
00024 NOP= 
1044 SCOPE= TRAP 
1040 LTs MT 
OCO004 PE= IO0T 
080267 BELL= 207 
oscooo 2 6} ; TRAP CATCHER FROM O - 776 
occe200 2 200 
coSes0 OOc1&7 od00ES2 IMP BEG 
001006 .s 1000 
00 0000 ICNT 0 
Oe 900000 LONUM: DUMMY 
04 g00000 DUMMY 
C& 00000 DUMMY 
io 9000090 DUMMY 
le 900000 HINUM: DUMMY 
14 0009090 OUMMY 
LE 080000 DUMMY 
eo 000000 DUMMY 


To 


000) MO0O0oD 


O00Gd O0OO00 


QNNVNV000C 
SB0000 


Ovo000o 
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ANSWER AREA AND SE OUTINE 
ANS1: DUMMY 
DUMMY 
ay 
UMMY 
ANS2: purity 
UMMY 
DUMMY 
DUMMY 
FPS: sFLOATING POINT STATUS 
FEC: ‘FLOATING EXCEPTION CODES 
FPC: 8 sEL8 TING P 
SFes: : :FORTRAN FLOATING POINT STATUS 
SFEC: 6 :FORTRAN FLOATING EXCEPTION CODES 
$FPC: 0 ‘FORTRAN FLOATING PC 
000600 BEG: MOV #600, SP ;#*# STACK AT 600 ## 
001104 oo0004 MOV sMlicc, da4 :FIND OUT WHICH MACHINE THIS IS 
177772 TST aei77?7?2 :1S PIRQ THERE? 
po000§ 005034 Moy 86, YESRT SFUDGE IN RTT IF 11745 


ciceso 000010 Mll2c: MOV FPTADR,@810 ;LOAD THE ILLEGAL INSTRUCTION VECTOR 
; WITH THE ADDRESS OF THE FPU. 
; Tee Feu WILL HANDLE THE SAD OPCODES 


990006 00004 BEGIN: MOV #6, 384 :RES 
0006: as #600, SP 
906136 ocoo MOV #YESRT, 814 :SET TRACE TRAP VECTOR 
010606 010526 MOV SPOWDWA, ICWNVES 
g10022 MOV #340, JOWNVEC +2 

011006 090020 MOV #.10T. d820 :SET UP VECTOR 20 
000030 “ MOV =» 8 30, RO :SET RO TO VECTOR 30 
007542 MOV 8. TRP, (03+ ;SET EMT VECTOR 
000349 MOY #340, (0)+ 
006149 MOV #.EMT, (0)+ :SET TRAP VECTOR 
ono34 MOV #340, (9) 

210 007754 MOY #FLTERR.OFPVECT ;LOAD INTERUPT VECTOR 
000340 007750 MOY 8340, aFF YECT+2 LOCK UP PROCESSOR 
177560 oLR ICNT 


07756 CLR LAD 


<= = eee ee ee wee = — 


vue 
S2ee 


Be00008 BOSBSSB8S8RB888 
0-2 2b 0 be bs hb = bb bo be be eh a he oe 


HiNnoh SlINa Teese 


COO444 
170000 


000435 
026767 


000427 


026767 
oci40e 


got ENG POINT DIVIDE EXERCISER 
T SECTION 


007409 
091340 


177500 


177464 
177460 


177430 


177424 


177412 


res 177514 


007642 


177454 


177442 


L7741E 
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¢ RELLELALAAAE LEAL SELLE LAAARALEL ELLE AALAALELEL SAAS S EAA SAL SAS LASS FE SS FSS 
| 


EXERCISE a INTERLPYS Of FLOATING? 


: suannnunennnqunqneanasenceusacsesnesunnoonepedsenquenennesssnesbenseees 


SCOPE 
MOV #007400, SFPS 
CLR $FEC 
¢LR SFPC 
L FPS 
SLR FEC 
CLR FEC 
ISR PC, RANDM2 
JSR RY $POLSH 
$P.2A 
$P. 2B 
SDVR 
STST 
SPOP2x 
MOV PS) seaRO 
LOFPS  #o40d00 
LOF LONUM, ACO 
LDF INUM; ACI 
LOF NS2, Aca 
LOFPS #0074900 
MOV +6, LAD 
LOF co, ace 
RET1: DIVE ACcl ace 
TST SFPS 
BMI ERR] 
STFPS EPS 
CMP FPS SFPS 
BEQ TSTi 
STF AC2, ANS! 
HLT+1 
BR ENDL 
ERR1: CFCC 
CMP FPS, SFPS 
BEG ‘ 
HL 1+377 
BR END! 
CMP FEC, SFEC 
BEO +6 
Hi 74+377 
BR END} 
CMP FPC. SFPC 
BEG TST] 


ENTER POLISH MO 
H 2 WORDS ON ae (LONUM) 
2 WORDS ON STACK (HINUM) 
ADDRESS OF FORTRAN DIVIDE 
spe TER INE THE CONDITION CODES 
P 2 WORDS AND EXIT POLISH “ODE 


DISPLAY FLOATING POINT STATJS 
:SET INTERUPT DISABLE 

iL LOAD ACO WITH A RANDOM NUMBER 
AD ACL WITH Fars NUMBER 


;LOAD_ ACO INTO ACe 

;DIVIDE ACL _INTO AC2 

;CHECK FOR FORTRAN FPS ERROR FLAG 
BRANCH _IF ERROR FLAG SET 

;STORE FLOATING POINT STATUS 
CHECK FPS 

;BRANCH IF OK 

SAVE FPU ANSWER 

;SKIP COMPARE 


;WAIT FOR FPU TO FINISH 
:;CHECK THE FLOATING POINT STATUS 
;BRANCH IF OK 

; RROR 

;SKIP TO END 

;CHECK THE FLOATING EXCEPTION CODES 
:BRANCH IF 


:FEC IS WRONG 
SKIP TO END 


: CHECK FLOATING PC 
;SRANCH IF 


INDE -11-DOFPU-D 
este eit 


Bet ds . Apaae; 


oe 


005067 
164400 


012767 


——~'" 


rea 


177344 
east 
1778 

177316 


177330 


177340 


177326 


NG_ POINT DIVIDE EXERCISER 
ECTION 


TSTl: 


END1: 


2 
. 
7 
s 
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14377 sWRONG ADOR $5 IN FPC 
2 END1 : SKIP TO ENE 
CMPF AC2, Aca ;COMPARE FPU ANSWER TO FORTRAN ANSWER 
FCC : COPY COPY FLOATING CONDITION CODES 


6 ENDI 
- COMPENSATE FOR FORTRAN inACCH CURACIES. 
STF aCe, ANS:  ;SAVE FPU ANSWE! 
2B ANSi+2 :DECREMENT FFU ANSWER 


RABE ast ACS i CHECK ANSWERS AGAIN 


CFCC ;COPY FLOATING CONDITION CODES 
BES «ENDL SBRANCH IF OK 

STE C2, ANSI SAVE FPU ANSWER 

HLT :FPU AND FORTRAN DISAGREE 

CLR FPS ;CLR FPU FPS. BUFFER 

SCOPE 


3 SARSLEAELERE LLL E ARS EEFRRLAA ELLA LF REL ALLELES SEAELELLALAL ESS LE ASSES 445444 
2: 


EXERCISE at ts OIvIe DOUBLE PRECISION) 
NTERUPTS ON 


Pind ML Salat airtel Bot: 


MOV #007600, $FPS ;SET IE BITS IN FORTRAN ANSWER 
SFEC ; FORTRAN FEC 


CLR :CLR R 
CLR SFPC :CLR FORTRAN FP 
CLR EPS :CLR FPU FPS BUFFER 
écR FEC :CLR FPU FEC BUFFER 
ecg FP :CLR FPU FPC BUFFE 
ISR PC, RANDM4Y GET RANDOM INPUT DATA 
JSR RY: $POLSH sENTER POLISH MODE 
SP. 48 PUSH 4 WORDS ON STACK (LONUM) 
$P.48 : PUSH 4 WORDS ON STACK  (agNar 
$0V0 "ADDRESS OF FORTRAN DIV 
$TST :DETERMINE THE CCNDITION OF ones 
SPOP4X !POP 4 WORDS AND EXIT POLISH MODE 
MOV SFPS, RO ;DISPLAY FLOATING POINT STATUS 
LOFPS #040200 ;SET FID AND FD 
LOD LONUM, aco ;LOAD ACO WITH & RANDOM NUMBER 
Mais) HINUM? ACI ‘LOAD ACL WITH A RANDOM NUMBER 
ANS.” AC3 } 3 WITH THE SUM 
LOFPS #007600 : TURN INTERUPTS 0 
8.46, LAD RESET LOOP ADBRESS 


5 FFEFEERERES ERE LE LAL EAA ESE RA AERELE RES L AREA RELEES EERE ASSES EFSF ALES EEE SES 


FET2: 


LOD Aco, ACe ;LOAD ACO INTO AC2 
DIVO AC] ACe :DIVIDE xs INTO 


AC2 
TST SF PS CHECK FOR FORTRAN FPS ERROR FLAG 
gM] ERR? BRANCH IF ERROR EL LAS 37 
STFPS FPS STORE FLOATING POINT STATUS 
Cup OPS SFPS FPS 


r ate HE CK 
SES TSTe BREN IF OK 


21854 


SEEPS 


901752 


“is 


0 -0--e- 
tum 


e->--9 ~~ 


er et ae ee er ee 
“I “I-33 
R20 SRY 


SoG00808 SBE BEBE BEE 


aiieeeles 


wwe www 


tree we 


+ = 
—— 


eee apt, 


i7?1$0 


177136 


‘ ee 
3177Cec 


177032 
o ——o— 


Poi 
TON 


177256 


NT DIVIDE EXERCISER 
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st ace, ANS!  ;SAVE Aixam ANSWE® 
oe fie 
END “SKIP 16 “Eno 
ERR2: CFCC 2 FOR FRU FPU Bike s 
ue FPS, $FPS Ck Mia oat Ine. B- status 
SEs 46 
HLT +377 
gF END2 SKIP " ENO 
CMP FEC, $FEC 4 ECK THE FL FLOATING EXCESTION IODES 
BEG +5 
HL T4377 ‘BEN 3, Te on 
se END SKIP ENO 
“Mp FPC SFPC sCHECK FLOATING PC 
BE std eK er 
HL T4377 s WRONG w: SS IN FE: 
£R END2 IP 76 
Tsv2: CMPD ace,  ac3 - COMPARE FRU ANSWER TC Foarsen ANSwES 
CFCC COBY FLOATING CONDITION CODES 
E53 ENDe ¢ ANSWER ck 
; COMPENSATE FOR FORTRAN thc cURACTES, 
STD AC2, ANS] : $a 
3.2 81 ANS1*6 :DEC BENT PBR BNSHER 
ANS 1 +4 
35% ANS 142 
596 ei 
EMeD Si, ac3 CHECK RS AGAIN 
cree : COPY FLGET NG CONDITION CODES 
BEG gece OK 
STD AC, ANS! :3eve FpL ANSWER 
HLT U AND SE OA SREN QISAGREE 
FPS a FPU FPS SUSFER 


ENDe: CL 
sé 


5 PEFFLESESESSSFSESSSSSLESESLSSSLESSLSLSLELESEFSSPEASSFL PASS PSPS SAAS S++ S4 


: TEST 3: 


EXERCISE DIVE pee FL gar ine 
ERF AND UNDER 


OVERFLOW FLOW INTERUPTS OFF. 
ROUNDING MODE 


: 
sESFESEFSAFLESSERISISESLESSLELSSSSLSERERESSSSPELSRAFSLSSASAAALASA SSS Se++ 


wD 


4197-0 DUNE 
4 truru 


(ele 


090 069 094 OHO 0 


s0ONO0.SFPS SET a Feafacs ite FORTRAN ANSWES 


‘tte FORTR 
:CLR FPU Pps BUFFER 


RANOM2 GET _R NPUT DATA 

SPOLSH ENTER POLISH MODE 
:PUSH 2 ON STACK {LONUM 
;PUSH ¢ ae 7. Ma (HINO 
:RODRESS 0 N Slvidé 
SEPESiue tee ccncrtisn toces 


fururetis 


Ras 


CCM MD 


cn 
cm 
Tete 


4 
a 
’ 


falshoncntch 


© 
fo 
0+ b+ 0+ B= = Bo be hb Be 
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: 
29 


€ 
if 
. 


CoC 1079090 
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MACY11 27(732) 16-SEP-76 16:30 PAGE 3S 


;POP 2 WORDS AND EXIT POLISH MZ0 


ae FLOATING POINT STATUS 
14 AC! ae A Beno Noreee 
tee Intenso, EXCEPT CVERFLom GMD UMCES®_ cn 


s PSSSSFSSSSSSSSSSSSSSSESERSSLESSSSFSSSSSLESESSHLASSSSSLSSSS SSS SGSSHS OSHS 


sLOAD_ACO_INTO ACZ 
{DIVIDE ACL INTO Ace 


PS 
Skip COMPARE 


WAIT FOR FRU TO FINIS 
innecK u 3. FLOATING S2r47 3747 LS 
i BRANCH IF O« 
FP ERROR 


SeKTP TG ENC 


SCHECK THE FLOATING ExCESTION CODES 
BRANCH IF OK 

1S WRONG 
SKIP #0 ENC 


; CHECK 4x 1NG pC 
Se bedis on: 
; WRONG 

:SKIP TO oR 


;CHECK FOR OVERFLOW 

BR GNCH TE OVEREL 24 
;COMPARE FPU ANSWER TO FORTSON 

i COPY FLOATING CONDITION CODES 
NSWERS CHECK 


FORTRAN inRSCERACTES 


;SAVE FPU ANSWER 
:DECREMENT FPU ANSWER 


CHES K ANSWERS AGAIN 


- SAVE FRU ANSWER 
:FPU AND FORTRAN DISSSSEE 


we NDE a OF PURE F ge Ese me DIVIDE EXERCISER MACYI1 27(732) 16-SEP-76 16:30 PAGE if 


eS 
m=aseo- -o - 
-_= = - 
~~ ied ee ~ a TIO 


¢ PERSFEAAESS EES ESSE SESELSELELEE SELES SELES ESAS ESSE SEEESESSS 94544949954 


TEST 4: EXERCISE DIVO (GIVIDE DOUBLE PRECISION) 


: OvERF LOM AND UNDERFLOW INTERUPTS OFF 
S poneeousenenaeeocqncaccnaseseesenessencecsecsssescsensecsecsessscesesss 

902312 1277 OO4E00 175532 MOV sO04600,$FPS SET IE BITS IN FORTRAN ANSWES 
552316 905067 aes cL SFE GL FORTRAN FEC 

sx5355 5 iseer® tCR PS toa at F F 

ayer O67 176508 ccR FES CLR FPU FEC SUFFER 

: 338 ops sreace sep Br RANOMY ‘ete RANDOM INPUT SATA 

ISP PC. RANDMSY =: DAT 

ee Bie? 563725 35R gS! $POL SH sENTER, DOL TSH MOE : 

al SP. 46 4 WORDS ON STACK (LONUM: 
552354 006324 §P 45 :PUSH 4 WORDS ON STACK (HINUM, 
502256 O00000G py TADDRESS OF FORTRAN DIVIDE 

Bes60 906402 §7S7 DETERMI THE ¢ CONOTTION SODES 
Bexb2 806260 SP5P4x AND EXIT POLTSe “OCE 
002364 ODIG700 76460 Mov SFPS, RO ‘DISPLAY FLOATING POINT STATUS 
662370 i70le? O4de0C LOFPS © sc4dtoo SET FID AND F 

052374 7e4e7 l7e40e EDD LONUM, aco ;LOAO ACO WITH A RANDOM NuMBE® 
552400 76567 176406 hese RINUM: GCL LAO ACI WITH & RANDOM NUMGER 
Ste404 172767 17e42e Bes ANSe.’ At3 SC OA0 aca Heth THE S 

602410 170127 So4eoo Tires} edo“é00 STURN INTERUPTS ON, TE CEPT OVER ANC UNDES®. 2 
O0e4i4 612767 Btews2 sossec MoV 8.45, LAD “RESET LOOP ADDRESS 


¢ FESS FESSSSFFSSPESPSSSSFLELSSISESSLSSSSLSSSSSSESSSSESSSSHE442444445444444 


C2422 172600 ,oo CD, ee bm ACO_INTO ACE 

SOS4E4 17460! RET4: BIVD Atl Ke Tvibe °6c1_INT9 fice 

Scetee 005767 17b1¢ rst gS K FOR FORTRAN FPS ESSOR F_a5 
coe432 odie eM: ERRY ranch IF EPROR FLAG SET 
SOe434 170267 176402 Stfes | Fes FLOATING POINT STATUS 
Sens G26767 176276 17eNCz SMP ORS, «= SFPS) ith res 

BEs4E O0i4e7 Bea sTST4 TBRANCH IF Ok 

EMSC I742E7 17b24e S7,, Fee. ANSL i SRVE EPL ANSHER 

SSe454 19450: 4 Fe! FPS ERROR 

SSe456 4 O00454 ee END iSKIP COMPARE 

SS24E0 170900 ERR4: © CFCC {WAIT FOR FEU TD FINISp 

Poetée O27E7 17E25+ 176262 ime” FPS SFFS ICMECK THE FLOATING FiineT s7atLs 
Bres70 001402 SEG wt :BRANCH IF OK 

Sce47e 104377 HL7+377 iFPS_ERROR 

Ste474 So0445 ee END :SKIP TO END 

SOE47E OZE7E7 7EME 17E2+e CMP 0s FEC, SFEC CHECK THE FLOATING EXCEPTION C1083 
Beeso4 Soi4ce ae :BRANCH IF Ok 

S5255¢ 104377 a. 74277 iFEC IS WRONG 

S528i0 200437 ze ENDY :SKIP TO END 

SC2Ei2 LEE7E7 17220 17EzES OME FBC SFEC SCHECK FLOATING FC 

Seti Bi472 fen 74 :ERANCH IF cb 

222822 [55277 mu74377 peRo'G ALDRESS Thy FEL 


artve 
eas Sort ac F POINT DIVIDE EXERCISER MACYI1 27(732) 16-SEP-7£ 16:30 AGE i7 
i a 


CO2$24 900431 BR ENO4 ;SKIP TO ENO 
gleSeé O3e75" O0COOE 176314 TSTs: IT 8c SFPS sre nica Te Ove 


8 
as 5s aca te TO FORTSON ANS 


555 r be f 9een* ace 
++ + 4 ~ nous pas es maps OND lew COCES 
co2e4e & 
wat aaa ol igen rPENSHTE FOR FORTRAN | NA CoRRC a 
S5Ec3 igsse> AgRSRT i7eze ait ANSieg cia ie ANSWER 
aed Geter ines Silt 
d . BNS 1+ 
Sossee 005667 176230 co aN] 
Soesr2 17a7e7 17eee4 CRED ANSI, «ACS CHECK ANGERS Bg8z% 
seesre rbot Fee’ TEOPY FLOATING CONGITION <COES 
jets 1402 Bes’ ey = BRANCH OF AK 
Sebde i742? 176214 Sip 02, «ANS! «= SAVE FPU ANSWER 
Béesde 104500 at :EPU AND FORTRAN DISAGREE 
D52610 OOSOET 176226 ENDH: CLR FBS ;CLR FEU FPS SUFFER 
Steis [59450 SCOPE 


2S Sr jalaleieiiaaiatay OO + + b+ Sat + te? Salt gh + tal al 5 t-te 
;TES EXERCISE ais Orvis FLOATING) 

; L INTERUPTS ON 

: TRu UNCRATE MODE 

s FSESESLETHESSSLEFSSFSSSSSSSSLSFSEASRSESSSESSESA SESE SHS 44H $44 4445444444544 


D026ié O12767 SOTHO 176224 MOV sOO7440,SFPS = :SET IE BITS IN FORTRAN aNsuEs 

ot2s24 005087 176222 CLR SFEC CLR FORTRAN FEC 

soebec BOSoe? I?bee =LR $F CLR FORTRAN FRC 

Soze34 05067 176252 TTR FBS :CLR FPU FPS BUFFER 

o02640 7 176200 cok FEC CLR FPU FEC SUFFE 

52644 905067 I7bI7E ec8 FEC ete PRU FRC BUFFER 

S026s0 004767 004372 ISR PC, RANOM2 ;GET RANDOM INPUT DATS 

262654 04467 COz4e5 TSR RS $POLSH S ENTER POLISH MODE 

902665 006312 SP. 20 :PUSH g WORDS ON STACK LON 

O0es6e 006234 $F. 25 PUSH 2 WORDS ON STACK (HINUM: 

coete4 0000006 ove : ADORESS OF FORTRAN “DIVIDE 

So2666 306402 $757 ; DETERMI ONDITION CODES _ 

052670 S06346 $POP2x :POP 2 WGROS BND EXIT POLISH MODE 

002672 016700 176152 MOY - SFPS. RO ‘DISPLAY FLOATING POINT STATUS 

Oceé7& 170127 AGrARe LOFPS §=s040b00 FID 

SSe7ce 172467 176575 LOF ~ LONUR, ACO ‘Pap ACO WITH A RANDOM NUMBER 

Oce70— 176567 176100 LOE =ssHINUM, © ACI LOAD AC] WITH A RANDOM NUMSES 

302712 172767 176114 (OF 80 Aca jL0QD ACS WITH THE SUM 

seeris i7tle? So7440 LOFPS = 8007440 STURN INTERUPTS ON 

cte72e O1e7&7 Coe730 o0ezSz MOV 8.46, LAD RESET LOGP ADDRESS 
SESFELESEPRELELSEFPSLSSFLELERFLAFHLSSERLSELERELHEHAFSELE SPSS tHS HSH H SSS 4e 

£02730 172600 LOF 86 ACO, «Ss ACB ;LOAD_ACQ_INTO AC2 

Due7ge 17460) PETS: SIVF ACL ACE :DIVIDE ACl_ INTO AC2 

scevet OCSPE? 176110 TST gFeS CHECK FOR FORTRAN FPS ERSCR FLAG 

Ste7=0 (1SO4Iz BM! ERRE :GRANCH IF ERROR FLAG SET 


vol 1-DCFPU= Epo Ee for QINT DIVIDE EXERCISER MACY11 27(732) 16-SEP-76 16:30 PAGE 18 


ecevus 170267 176074 STFPS FPS : STORE FLOATING POINT STATUS 
sree me 175°C 176074 'y cee, SFPS HECK Fes ti. 
wwe s é \ T i wl 
lay TeaDE> 1 7EOHD at2, = ANSL es FPU ANSWER 
sasies eh HL T+! PS ERROR 
332784 00455 BR = ENDS :SKIP COMPARE 
DOE7EE 470000 : _ ERRS: = CFC ;WAIT FOR FPU TO FINISH 
p56. 70 ae 176046 1760S ci FES, SFPS “CHECK THE FLOATING SSINT S7aTUS 
Cie ? ol 
=xS558 seh Ma Peres i BRANCH IF ” 
503002 odo0446 SR ENDS 'SKIP TO ENO 
903004 767 176054 176040 Mp FEC $FEC :CHECK THE FLOATING EXCESTION 7O0ES 
estie beises SEQ ws SBRANCH IF OK 
vv S33S18 104377 Hi 14277 IFEC = WRONG 
363516 S90440 3F ENOS :SKIP TO END 
903020 026767 i76fe2 760s Me Spc §FDc : CHECK FLOATING eC 
093026 901452 5&9 TsTé ;BRANCH TF OK 
302930 194377 HL 74377 + WRONG abDRE SS IN FRC 
503032 900432 Be ENDS :SKIP TO END 
992034 17372 TSTS: CMPF Ace, ACI :COMPRRE FPL ANSWER TO FORTSGN oNcLEe 
003036 170059 Secc :COPY FLOATING CONDITION CODES 
003040 001427 BEG ENDS jANSWERS CHECK 
‘ COMPENSATE FOR FORTRAN INACCURECIES. 
Se Se EE fo Rie INREEnM Rhee 
O30 7 0S 0} 17 755 A D 3 ‘ 4+ 
Boacsy Bossez izeras ace 2 
503069 173767 175736 CMPF ANSI, «ACB sCHECK ANSWERS AGAIN 
03064 170000 free :COPY FLOATING CONDITION cIcEs 
eC an a rrr ee 
8.8 $002 i7s7zt = 4 ANS 142 
Bo307— OOSE7 75720 5a¢ ane! 
§02i02 173767 175715 CMPF CANS], DS CHECK ANSWERS AGAIN 
303106 170000 CFCC SEQBY FLOATING CONDITION CODES 
563110 001402 8¢7 ENDS !SRANCH IF OK 
SOzil2 174267 175704 =tF AC2, ANS} ‘DAVE FPL ANSWER 
503:36 104500 HLT -FPU AND FORTRAN DISAGREE 
SO3120 OOSOE? 175716 ENDS: CLR FPS :CLR FPU FPS BUFFER 
523124 108850 StOPE 
i FFFSFPRERFREPEREPEPLESSEEREREPERERELELELSRAITELE TALE TFL RAFAS ASP StHSSE+0% 
: TEST 6: EXERCISE DIVD (DIVIDE QOUBLE PRECISION! 
; ALL INTERUPTS ON 
TRUNCATE MODE 
+ REEELESEEEESELEREEEESSEEEESS SESS ESESE ESE RES SERS SE ORES SES ES SESE SESE 
02126 012767 OO7E4O 175714 MoV sOO764O,SFPS :SET IE BITS IN FORTRAN ANSKES 
soeisd OCS0E7 I75712 CLR SFEC CLR FORTRAN FEC 
Fosse 096067 176716 a) SFEC ‘ECR FORTRAN FBC 
SEzi4s S060e7 17672 erR FPS -CLR FPU FPS BUFFER 
ersisc S055? 175676 ae. FEC :€LR FRU FEC BUFFER 
F03:55 S8C55e7 i7ecee CCR FRC :cLR FRU FEC BUFFES 


DE f-3 1-0 PUD FLOATING POINT DIVIDE EXERCISE MACY11 27(732) 16-SEP-76 16:30 SAGE 19 
13 TEST SECTION 
23180 g04767 324229 sk ec pgm sGET RANGON I INPUT DATA 
003i ¢ 003210 y oe OL SH 
ek Fe selees ae fae 4 iabs OOF ay (LONUM ) 
ogi7e 006324 $P.4E S ON STACK (HINUM) 
953174 9000506 $0¥0 i AbsheS es Wore FORTRAN SIVI 
Sosi7s 006402 S : DETERMINE THE CONDITION COCES 
553260 906369 SPOP4X P 4 WORDS AND EXIT POLISH MOCE 
eo3202 S16700 175642 MOY $FPS. RO :DISPLAY FLOATING FOINT STATUS 
eeseee A708 AcRete LOFPS © 8o4a200 gish ee ang 0 
OS3212 172467 175564 LOO LONUM, Acc + AD Bo WIT ae RANDOM NUMEES 
Sool i7ese? 176570 LOD HINUM, ACI “LOAD ACL W tH A RANDOM NUMo=s 
Be3ss2 1728767 175604 LBS ANSe, ACS :LOAD ACS WITH He SUM 
p53ee6 170127 OO7B4C LOFPS «= sO0T6YC) = i(s:«S TURIN INYERUPTS. 
Co3ese Cleve? S03240 costs Moy 8.5, LAD !RESET LOOP apd cfcs 
‘ SSSSESSESELEFFSSSAASSSSSSSSESSSSLISSLESSESSSSSSLEL SLES SSSA SSH $4 HH S444 HH 44444 

O03240 172600 LOD Aco, ace sLOAD ACD INTO ACe 
O5ae42 17460 bab Rete: IVD atl, Ace :DIVIDE ACI_INTO AC2 | ; 
S3244 O0s76? 175600 Té7 SFPS 2 SHEE FORTRAN FPS ERBOR =_s5 
503250 idd4ie Qé1 Ered :BRANCH TF ERROR FLAG SET 
603252 170267 175564 STFPS FPS : 27 ORE FLOATING POINT S7ATUS 
653256 826767 175580 175564 =p Epe SFPS 6S CHECK FPS 

93264 901427 BEG TSTé :BRANCH IF OK 
003266 174267 175530 SiDOti‘éaAAGCz«y ANSL SAVE EPL. ANSWER 

53272 104001 ui t+) FPS ERROR 
03274 50856 Sf ENDS “SKIP TO END 
003276 170090 FERRE: CFCC sWAIT FOR FPU TQ FINISH 
563300 O26767 175526 i75S4e ep FES SFes CK THE FLOATING PCINT S7A7LS 
99339 001452 BEG of BRANCH IF Ok 
593215 104377 Hi 74377 sEP ERROR 
053312 SOo4sE DF ENDS (IP TO END 
903314 096767 175524 175530 CMP FEC. SPEC CHECK THE FLOATING EXCEPTION CcDEs 
S0s322 501402 tte + : BRANCH IF OK 
563304 104377 HL 74377 FEC IS WRONG 
c0z226 oao4so oF END “SKIP TO END. 
002330 226767 i7SS12 i7ES16 oP FPO $FPC : CHECK JFEQATING pC 
S02336 001402 SES TS76 HIF OK 
So3340 104277 Hi 7+377 STRONG ADDRESS IN FEC 
002342 o0o44e2 Be ENDE :SKIP TO END 
023344 17370 "S76: CMPD ace, acs sCOMPARE FPU ANSWER TO FORTRSN ANSWES 
SO2246 170006 CFCC :COPY FLOATING CONDITION CODES 
633350 001437 BEG END “ANSWERS CHECK 

;COMPENSATE FOR FORTRAN INACCURACIES. 

M0335 174PE7 «175444 5 AC2, ANS1 SAVE FRU ANSWER 
BASIE Oeers7 CORD] 17S444 acd 8! ANEI4& :INCREMENT FPL ANSWER 
Sezze4 «CCSSE7 =I7ESzb ASC ANS 144 
F63270 §0SSE7 176430 ape ANS 3+2 
RE2274 «BOSSE? «6 7E4E2 AOC ANS} 
esol 17a7e? «= 17Ew1E CMPD «6 CANS!. «=A sCHECK ANSWERS AGAIN 
Beans 175000 ere sEOPY FLOATING CONOITION CODES 


PEaNCES ri L-DOFP LAL Pee ane, POINT DIVIDE EXERCISES MACY1L 27(732) 16-SEP-76 16:30 PAGE 2t 
wer at © oe CTION 
SEG BEE ce mene BE sacies EBB PE sees 
; i , ri ‘ - 9032 af S' lé ‘ l¢ U 
SES4i6 ages SFE055 eB. ane Lou 
yistee 7% 17536 58¢ ANS1+2 
oos4 B2 i75sre e¢ ANS 
S53ua2 17376? 175364 SMPD «= CNSI, «= ACS sCHECK ANSWERS AGAIN 
503436 170099 CFCC : COPY FLORTING CONDITION CA0ES 
Siow? [Saz87 175384 eh ORCS; asi eve Feu FPu AN 
eeSiTE igisRe af PPL AND "ASAE OISAGREE 
803450 OOSOE? 175366 ENDS: CLR FPS sCLR FPU FPS BUFFER 
FESMES «155650 SCOPE 
+55 tad Set S14 b- Stab byt Salt gh b+ Seta) 5 Sd tlhe 
“TEST 7? EXERCISE DIVE (DIVIDE FLOATING 
; OVERFLOW AND UNDERFLOW INTERUPTS OFF. 
TRUNCATE MODE 
: LPPESEESESER SER SEESESESSEESESSEEESSSESESSSSESSESEEESS 5 45445554544906444 
DOR4SE OL27E7 OONHHO 1752+ MOY sO0s440,$FPS SET IE errs IN FORTRAN ANSKES 
So3464 0507 175362 CLR $FEC :CL& FORTRAN FEC 
503470 905067 175360 elk Hise CLR FORTE an FRC 
903474 O055¢7 175342 =LR Fes 4 :CL® FPU FPS BUFFER 
003560 995067 175345 “LE FE :CLR FPL FEC BUFFER 
203504 005067 175336 are FRC :CLR FPU FPC BUFFER 
093610 904767 40253 Sp pr RANOMe T RANDOM INPUT DATA 
603614 O94467 ACDEES TERS SPOLSH ENTER POLISH 
503520 O06312 $F. 26 :PUSH 2 WORDS ON STACK {LONUM 
093522 906334 3°. 22 :PUSH 2 WORDS ON STACK (HINUM) 
903524 0000006 OV :ADDRESS OF FORTRAN SIVIDE 
96352 006402 $757 DETERMINE THE CONDITION o0ES 
093630 + o0e34¢ $P Pex :POP 2 WORDS AND EXIT POLISH More 
503532 Q16700 175312 MOW $FPS, RO : DISPLAY FLOATING POINT STA 
003536 i7f1e7 949996 LOFPS §=s- 049400 :SET FID 
502542 72467 175234 LOF LONUM, Aco :LOA0 ACC WITH A RANDOM NUMBES 
OO3546 . 172567 50 Lor HINUM; Ac! :LORD AC] WITH A RANDOM NUMBER 
503552 172767 175254 LOF ANSe, ACS :LOAD AC3 WITH THE SUM : - 
BS3SE— 170127 Jo4440 COFPS © 8904440 sTURN INTERUPTS ON, EXCEPT OVERFLOW SND LNDESEL: 
503562 812767 803670 oossie MOY 8.+6, LAD :RESET LOOP aporesé 
4 FESSESLESFFLESFRELESSSLSSFSSSELREFSSESRSEPESSSSSSSELESERASSRES ASS SH eT Seseesee 
053570 172600 Lor aco, ace :LOAD ACO INTO AC2 
30257 17460 SS PET?: «GIVE = ACN, AC sSOIVIDE ACL INTO ACE 
S0357% 005767 175259 iS? ZFPS > CHECK FOR FORTRAN FES ERROS F_o3 
553600 19041 BMI ERR? :BRANCH IF ERROR criss SET 
P93602 170267 175234 STFPS FPS : STORE FLOATING POINT Status 
653696 O26767 175220 178224 emp FPS $FPS K FPS 
503614 OC1427 BF 9 TST? ‘BRANCH IF CK 
553616 74267 178200 STF a2, ANS! SAVE FPU ANSWER 
So2622 104d) HLT+] ‘FPS ERROR 
5c3624 Boose} oF END? :SKIP COMPARE 
SOZbZE 170000 ERR?; CFCC sWAIT FOR FRU TD FINISH 


wAINOEC=21-DCFPuAD FLOBTING POINT DIVIDE EXERCISER MACYLI 27(732) 16-SEP-76 16:20 PACE 2: 
afeL8 "ii TEST SeeryN 


023630 gee"? 175208 175212 cre FPS, SFPS s CHECK 1 THE E FLOATING POINT STATUS 
‘sg! + . 
ae Se Baas nf 377 iFPe Eeede 
Ba364 52 3 END? :SKIP 70 END 
CO3644 C2677 175174 178200 CMP FEC, $FEC CHECK THE FLOATING EXCEPTION CO0ES 
203652 001402 BEG 46 :BRANCH IF 
BA368$ [04377 Hi 14377 FEC I$ Thone 
553656 odo4e4 BR END? :SKIP TO END 
03660 787 175162 17S1ée om FPC S$FPC HECK FLOATING PC 
sk 14Ge2 SEO Ts Ee aie 
663670 194377 Hi 7+377 TRONS. aSDRESS IN FEC 
003872 000436 ge END? :SKIP TC END 
093874 032767 COOODe 175146 YTST?7: BIT te, $FPS 6s s CHECK FOR OVERFLOW 
653752 001032 BNE END? ; BRANCH IF OVERE 2a ee 
037 7370s fMBF = ACe, «2s COMPARE FPU ANSWER TO FOSTRGN ANSWES 
03706 1700 CFCC  EOpy FLOATING CONDITION cODES 
0537109 601427 BEG END? : ANSWE 
;COMPENSATE FOR FORTRAN tNACCU CURACTES. 
12 74267 175104 ete Ace, ANS! ;SAVE FPU ANSWER 
00371 767 00005: 175100 205 8] ANS 1+2 ‘INCREMENT FPL ANSWER 
7e4 OCOSS67 175072 ADE ANS! 
903730 1737 7? 175066 CMPF 6 ANSI, «= AC sCHECK ANSWERS AGAIN res 
003734 17! FFCC :COPY FLOATING CONDITION CODES 
003736 OO1414 REQ END? :BRANCH IF OK 
003740 i62767 ocoone 1750S¢ Sug a2, ANS!+2 :DECREMENT FPU ANSWER 
O3746 60567 175050 58¢ ANE: ‘ 
O03752 173767 175034 CMPF 86seANSI, «=e AC2 :CHECK ANSWERS AGAIN 
003756 179099 CFCS :COPY FLOATING CONDITION CODES 
302750 145 P BES END? : BRANCH IF OK 
0037 178267 175034 STF AC, ANS] VE FPU ANSWER 
303766 04000 HLT FP AND FORTRAN DISAGREES 
092770 OOSDE7 175046 END7?: CLR FPS :CLR FPU FPS SUFFER 
302776 «165450 COPE 
STEST 10: EXERCISE O1VB (DIVIDE OOUBLE PRECIEIOND 
; TEST 10: EXERCISE ottee (DIVIDE D obPee 520 
: OVER ou ant “uh PELE N apts OFF 
Pe AEE AOR es Si , , E TNR N et 
093776 012767 OO464O 175044 MOV sOO4640,SFPS ;:SET IE BITS IN FORTRAN ANSWER 
664004 o0S067 175542 CLR SFEC :CLR FORTRAN FEC 
004010 O05067 175040 CLR SFPC :CLR FO p 
854014 00 175022 ccR PS :CLR FPU FPS BUFFER 
095 175520 CLR FEC :CLR FPU FEC BUFFER 
604024 O0Sie7 1750i¢ CCR ie :CLR FPU FPC BUFFER 
854020 G04767 90235 SR pC. RANDMY :GET RANDOM INPUT DATS 
594034 Oos4e7 Oo2240 JR py’ $POLSH :ENTER POLISH MODE 
CO4O4D 006202 SP. 4G :PUSH 4 4 WOR RDS ON STACK (LONUM: 
CosO4e S0bse $P.45 PUSH 4 WORDS ON STACK (HINUM) 
RFude4 8055005 S000 :ADDRESS OF FORTRAN DIVIDE 


JOYO45 DOB4CE $TS* :DETERMINE THE CONDITION CODES 


MAL NOEC =: 1-D 
Dore up.© 


S4i12 


994200 
004206 
204219 
OG42ie 


054214 


oF PUD 


OOO+4E 
932767 
170000 
001437 
174267 


anc 


174730 


174714 
174719 


174660 
174665 
174654 
174642 


00CoS, 


174564 


174536 


0902 
174525 
174516 


o0S07e 


174715 


174672 


174564 


SPOP4X 


MACYI1 27(732) 
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;POP 4 WORDS AND EXIT POLISH MODE 
SEP Fp FLOATING POINT STATUS 


LOAD papa A RANDOM NUMBER 
LORD AC A RANDOM NUMER 


HE SUM 
URN CRN INTERUPTS. ON, EXCEPT OVER AND UNDEF 7K 
!RESET LOOP ADDRESS 


5 EXRFRELLELERSSSLERAELSLEF LEAL LSLELLELLAELLELELSSALSSLLLS HLL SF SS SAF AFSSS4 


RETIO: 


ERRIO: 


LOO ANS2 
LOFPS § © #004640 
MOV +6, 
ff 
oh SERA 
BMI ERRIO 
STEPS FPS 
=P FPS SFPS 
BE TsT1o 
STD AC2, ANSI 
HLT+! 

R END1O 
CFCC 
CMP FPS, $FPS 
3EG +6 
Ml +377 
BR END12 
CMP FEC, SFEC 
BEG + 
HL 14377 

ENDO 
CMP FPC, SFPC 

EQ ENCIO 
HLT+377 
3R END!0 
BIT #2 SFPS 
BNE END10 
CMPD 6=sCoACe, ~=—Ss«AC 
CFCC 
BEQ END1O 
; COMPENSATE FOR FORTRAN 
ie Ace, ANS 
ADD 1 ANSI +6 
ADC ANS 1+4 
ADS ANS 1+2 
acc ANE} 
CMPD ANSI, AC3 
CFCe 
BEG ENOIO 
SUB 4 ANSI+5 
Sec ANS 1 +4 
58¢ ANS1+2 


;LOAD_ACG ae ACe 


:RIVIDE 1 ENT RAN F Fes ERROR FLAG 


:BRANCH IF ERROR FLAG SET 
; STORE papel IN POINT STATUS 


: BRANCH H IF OK 
:SAVE FPU ANSWER 
:SKIP COMPARE 


s;WAIT FOR FPU TO FINISH 
:CHECK THE FLOATING PSINT STATUS 
s BRANCH IF OK 

ERR 


OR 
SKIP TO END 


;CHECK THE FLOATING EXCEPTION CODES 
: BRAN CH IF OK 
;FEC IS WRONG 
SKIP TO END 


; CHECK FLOATING Po 

; BRANCH OK 

WRONG ADDRESS IN FPC 

:SKIP TO END ” 


;CHECK FOR Ad ey 
BRANCH IF OVERFLO 
;COMPARE FPU ANShER TO FORTRAN ANSWER 
;COPY FLOATING CONDITION CODES 
WERS CHECK 


= ANS 
tNAcCURACIE cS 


;SAVE FPU ANSWER 
S INCREMENT FPU ANSWER 


5 CHECK ANSWERS SGAIN 
: COPY FLOATING CONDITION CODES 


;SRANCH IF OK 
:DEC CREMENT FPU ANSWER 


he Sor -31-DCFPU-D 


~ DSF ey 


pee 


ww S34 


CO4435 
304442 


004459 


012767 
005067 


Apes 1 


170367 


FLOATING Bs DIVIDE EXERCISER 
TEST SECTION 


teuehS 
174474 


174506 


O47 400 
v2 


Boi 706 


174432 


0 
CO44S0 


174362 
174364 


174350 
174320 


174332 
174224 


174504 


CO4S32 


174354 


174330 


ENDS: 


ANS] 
ANSI, 
END10 
END 


FPS 
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AC3 


ANS] 


;CHECK ANSWERS AGAIN 
sony FLOATING CONDITION CODES 
ANCH IF ane 
; SAVE FPU ANSWER 
PU AND FORTRAN DISAGREE 


scan FPU FPS BUFFER 


jRRRERSRRRERREAEESEDTELEEERESOREEREREREEEEED EL ERE SRE ATER REET EE SAE Ete +444 
EXERCISE 2 a cory tts FLOATING) 


T ll: 


eS SET 
ING A ODE 


© SSA RES 


sal IE ais HS. FORTRAN ANSWEF 


; HE CONDIT 
;POP 2 WORDS AND EXIT POLISH MODE 
;DISPLAY FLOATING POINT STATUS 


:SET 
:COAD ACO WITH A RANDOM NUMSER 

:COAD ACI ITH @ RANDOM NUNGER 

;LOAD ACS WITH THE SUM a 
SEPT INTERUPT DISABLE AND INTERUPT BITS 
SRESET LOOP ADDRESS 


| ELELFLAELEESEFELELLELLEFELEL ELE LEA ELELERELELELELELESRELAF PAELLA LR ATHLAAS 


RETI1: 


ERR11: 


MOV #047400, $FPS 
CLR SFEC 
CLR SFP 
LR FPS 
L FEC 
CLR FEC 
ISR PC, RANDM2 
JSR RY! $POLSH 
3P.2A 
$P. OB 
$OVR 
STST 
SPOP2x 
MOV SFPS, RO 
LOFPS s040f09 
LOF LONUM, Aco 
LOF HINUM, ACL 
LOF ANS2,  ACZ 
LOFPS #047400 
MOV #.+6, LAD 
LOF Aco, ace 
DIVF ACI, ACe2 
STEPS FPS 
TST FPS 
BMI ERRI1 
CMP 5 SFPS 
BE TST} 
STF C2, ANSI 
the 
B END! 
STST FEC 
CMP FPS, $FPS 
EG +6 
HL T+37 
BR END11 


; LOAD ae. ag: AC2 
ae ADE AG NTO_ACe 
OR FLOAT NG ir STATUS 
;CHECK FOR ERROR FLA 
sBRANCH IF ERROR FLAG SET 


:BRANCH IF OK 
: SAVE aa ANSWER 


Hig Me COMPARE 


aR ORe FE 
nee FLOATING POINT STATUS 
BRAC 
FPS ERRD 
: SKIP TO END 


vs oy | ll a ahh Bas POINT DIVIDE EXERCISER MACY11 27(732) 16-SEP-76 16:30 PAGE 24 
UD 


O84S26 O267E7 i743le 174316 ne -% ,SFEC ;CHECK THE FLOATING EXCEPTION COCES 
ase aRiias e377 Coo Ee lect 
peecs athe 174200 174204 ea FEE, SFPC Bren of PAs ING PC 


654552 104377 HL 14377 WRONG ADDRESS IN FPC 
F54ss4 oco4es BR END11 SKIP TO END 
205556 9327 ? oooos2 174264 TSTil: BIT Pr SFPS  ; CHECK FOR OVERFLOW 

4564 901001 NE END11 ‘BRANCH IF OVERFLOW 
90 173792 CMP c2, aca :COMPARE FPU ANSWER TO FORTRAN ANSWES 
ye 470900 CFCC ; COPY Opy FLOR TING CONDITION CODES 

0457, 1416 BEG ENDi1 

- COMPENSATE FoR FORTRAN tnaeu CURACIES.. 
004574 174267 174222 STF AC2, ANS! SAVE FPU ANSWER 
162767 OSCOOO! 17421€ 5 #! ANei+2 :DECREMENT FPU ANSWER 

094606 005667 174210 SBC ANS1 
D04612 173767 174204 CMPF 8=SoANSI, «= ACB : CHECK ANSWERS AGAIN 
O04616 1709 CFCC : COPY FLORTING CONDITION CODES 
o04620 901402 BEG END11 *BRANCH IF OK 
004622 174267 174174 STF AC2, ANS!  :SAVE FPU ANSWER 
804626 104000 HLT :FPU AND LARTER DISAGREE 


OO4¥630 005067 17406 END:i: CLR FPS ;CLR FPU FPS BUFFER 
C4634 154400 SCOPE 


—_— 


012767 


COG4SS 
170367 


i037? 


LOOT Iie PQINT DIVIDE EXERCISER 
TEST SECTION 


047600 17204 
e0e 


004232 


174062 
174CE4 


174050 
174020 


174054 


174032 


174024 174030 


174012 


A74C16 


178000 174004 


;TES 


MACY11 27(732) 
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5 FS RAFRERRALEAL ELS SAALELSLALARAA SRA LAA AERA LEAS LLL AE LALA SLES ASL ALAA SSS SS4 
l . 


EXERCISE DIVD coryTe DOUBLE PRECISION) 
NTERUPT DISABLE SET 


Pritt Titi itititiiititirttitirititiitiitttiititiiitititittititi eet 


RET 12: 


ERRi2: 


MOV #047600, $FPS 
SFEC 


CLR FPC 

cLR PS 

CLR = FEC 

CLR ss FRC 

jsR PC, RANOMY 
7SR sR $POLSH 
$P.40 

$P.4B 

$DVD 

STST 

SPOP4X 

MOV 


LOD ACO, ACe 
DivO ACI, ACe 


STEPS = FPS 
ST SFPS 
BMI ERRI2 
CMP FPS SFPS 
BEG tSTle 
STD Ace, ANS] 
HLT+1 
R END12 
STsT FEC 
p FPS, SFPS 
Q +6 
HLT+377 
ENDi2 
CMP FEC, SFEC 
9 +6 
HL 1+377 
END12 


CMP FPC, SFPC 
SEQ TsTl2 


ie FID ae He Wai IN FORTRAN ANSWER 


ZENTER POLISH MODE 

PUSH q WORDS ON ae fs 
:P USH 4 WORDS ON STACK (HI 
ADDRESS OF FORTRAN BV IDE 
: DETERMINE THE CONBITION CODES 
;POP 4 WORDS ANC EXIT POLISH MODE 


;DISPLAY FLOATING POINT STATUS 
:SET FID FD 


; LOAD ACO WITH A RANDOM NUNSER 
;L0AD AC] 7 A RANDOM NUMBER 
:LOAD ACS 


WITH THE SUM 
;SET INTERUPT DISABLE AND INTERUPT BITS 
RESET LOOP ADDRESS 


;LOAD ACO INTO 10k 

DIVIDE AC1_INTO AC2 

: STORE FLOATING. gir! STATUS 
CHECK FOR ERROR FLAG 
BRANCH IE ERROR FLA SET 


‘RANCH IF OK 
:SAVE FPU ANSWER 
:SKIP COMPARE 


;STORE FEC AND FPC 
:CHECK THE FLOATING POINT STATUS 
: BRANCH IF OK 


;FPS ERROR 
SKIP TO ENO 


3 EEK THE PR OAT ING EXCEPTION CODES 
;BRANCH IF 0 

:FEC IS WRONG 

:SKIP TO END 

Ered te PgaT ING PC 


;WRONG adores IN FRC 


mal! 
OCFP 


o0S0S4 


095140 
005144 


Boees2 


C-31-DCFPU-D 
Pll 


000431 


005067 
104400 


Bee 


00 
O06346 


012767 


PROT Ne TO POINT DIVIDE EXERCISER MACY11 27(732) 16-SEP-75 i6:30 PAGE 2 


BR END1e ;SKIP TO END 


000002 i73764 TSTle: ag #2 12 SFPS Seen FB FOVEREL OU 
erp 5x! AC3 R TO FON Cooee ANSWER 


;COPY FLORTING CONDITION CODE 


BEQ ae 
“COMPENSATE FOR FORTRAN ¢ HERS SpE : 

173722 eT 2, ANS! -SAVE FPU ANSWER 

ANSI+&6 ;DECREMENT FPU ANSWER 


90901 173722 SUB a1 
173714 BC ANS 
173706 58C ANS 1 +2 
133674 PHD NEL, AC 
Pee ; an SELORTING Con RSNETTION copes 
BEQ = ENDI2 
173664 ST ACE, ANS gave Feu aN SuER 
HL :FPU AND FORTRAN DISAGREE 
173676 END12: CLR FPS ;CLR FPU FPS BUFFER 
SCOPE 
5 FERAEELA FLARE RL ELEL SEALER ERA LL ELA LALA LL SL ALAL ALS ALS LSS LSE SLAA AZ ES4 F444 
TEST 13: EXERCISE DIVF (DIVIDE FLOATING) 
INTERUPT DISABLE SET 
TRUNCATE MODE 
ST TTT ESET TTT TTT TTT TTT ESIC TTT TTT TT TCT ETECTCETTETET OTST TCTTTETS 
047440 173674 MOV #O47440,SFPS ;S5T FID_AND JE BITS IN FORTRAN ANSWER 
17367 CLR SFEC CLR FORTRAN FEC 
173670 CLR SFPC ;CLR FORTRAN FP 
173652 CLR FPS :CLR FPU FPS BUFFER 
36 CLR = FEC :CLR FPU E 
173646 CLR —séFP ;CLR FPU FPC BUFFER 
oo2n4e JSR PC, RANOM2 T INPUT DATA 
001970 JSR RY: $POLSH sENTER POLISH MODE 
$P.28 PUSH 2 WORDS ON STACK (LONUM) 
SP. OB :PUSH 2 WORDS ON STACK (HINUM) 
SDVR ADDRESS OF FORTRAN DIVIDE 
$TST DETERMINE THE CONDITION CODES 
$POP2X :POP 2 WORDS AND EXIT POLISH MODE 
173622 MOV SFPS. RO ;DISPLAY FLOATING POINT STATUS 
040000 LOFPS #040000 :SET FID 
173544 LDF LONUM, ACO :LORD ACO WITH A RANDOM NUMBER 
173550 LOF § HINUM, ACI sLOAD ACL WITH A RANDOM NUMBER 
173564 LDF ANS?,” AC3 ;LOAD AC3 WITH THE SUM 
ou7445 LOFPS § 8047440 :SET INTERUPT SISABLE AND INTERUPT SITS 
oos260 903722 MOV .+5, LAD sRESET LOOP ADDRESS 


lep1-D2FBL- CeST IN, a gzN DIVIDE EXERCISER MACYL 27(732) 16-SEP-76 16:30 PAGE 27 
ee ) ‘ Seu ' wa 
ps PRSSSSSSSSSSSSTSSSSSSSSSSSSESSSSSSSSSSSELSSLSSHISS SSS SSSSSISIS SS SSSSSH SESS 

905260 172600 aco, = & : ACO INTO BC 
=se5es 174651 RET13: bie al; AGS iS ToE }_INTO 
soseet 1roebs 173552 iFPs ae STORE FLOATING point STATUS 
al, ha rahe I RRI3 Srencn f EERE ELae SET 
So5e Te? 173880 «1 72E44 cM FPS sFPS, i 
Sesscy  OS1439 2 = 38 SBRANCH TF. OK 
sos oe P4267 173510 STF Ace, ANSI «=; SAVE Fey ANSWER 
COS3le 00 * 
speate Aps0ei get gnos3 ETP COMPARE 
005316 170367 173822 __ ERR13: STST FEC sSTORE FEC AND SPC 
508322 26767 1735145 173820 Sa Fes. $FPS i cHECK THE BLOATING POINT STATUS 
pees Touae HL 14377 Fes ERROR 
305334 00452 5m END 13 >SKIP TO END 
305235 %? 373502 173506 ome FEC. SFE: CHECK THE FLOATING EXCEPTION [CODES 
b0s3* 1402 SES 7 sBRANCH IF OK 
D0S346 104377 4. 74377 FEC IS WRONG 
5053s0 S00444 oF ENDI3 :SKIP To ENC 
DOS3S2 OPE7E7 17347 «173474 om FRC, SFPC sCHECK FLOATING PC 
305365 001402 5E3 TsT13 :BRANCH IF Ok : 
505362 154277 HL 74377 :WRONG ADDRESS IN FEC 
505264 00436 FI END! -SKIP TO END 
oc5266 032787 ocOcOde 172454 ‘STi3: BIT 82, BFPS. CHECK FOR OVEREL OW 
505374 O01032 BNE ENDLa :BRANCH IF _OVERF 
505376 172702 CMPF ACE, = AC ;COMPARE FPU f ENSoes 19 FORTRAN ANSAE® 
Sseiee irecce CFCC :COPY FLORTING CONDITION CODES 
BDS4 1427 BEG END13 “ANSWERS CHECK 

“COMPENSATE FOR FORTRAN fNACCURACIES. 
905404 174267 172412 i ACe, ANS! ; SAVE a ANSWER 
Bassi9 767 OOOCO! 173406 al, ANSie2 INCREMENT FPU GNSWER 
SOS4ié O0SSé7 173400 age ang: 
S0S422 1Fs7e7 «172274 CMPF 8 OANSI, «ACS CHECK ANSWERS AGGIN 
555426 175000 FFCC 'COPY FLOATING CONGITION Liles 
905430 OOl41s BEG ENDL3 sBRANCH IF OK 
556432 i6e767 S0000e 172264 sus 82 ANSI+2 :DECREMENT FPU ANSWER 
S0E445 OOSEE7 17255E ec ANS 
655444 172767 36, EMPF 86s NS], ~= ACD : CHECK ANSWERS AGAIN 
3cs4s0 CFCC :COPY FLOATING CONDITION CODES 
A5E42 901403 B55 ENDL3 :BRANCH IF OK 
FFE4b4 174267? 173242 STF pce, BNSL «SAVE FEU ANSWER 
FFS4E0 | los000 HLT “FP AND FORTRAN DISAGREE 
“0S4ee COSDE? 172384 ENDI3: CLP EPS -CLR SPU FPS SUFFER 
Freere  Ea902 Cr OPE 


4 TEP ee eee Pepe ENE. — DIVIDE EXERCISER MACYL1 27(732) 16-SEP-76 16:30 SAGE 28 
et ia: 6 DERCIME DIG (DIVE DAME PECition 
i TEST 14: EXERCISE sidthue ett piBiet Set PRECISIO 
RR ARN EO AB or ots A MRA et tt EADS 
sossz> =Ole7b? =ONTE4O 173352 MOV 8047640, SFPS ;SET FIO AND IE BITS IN FORTRAN BNSWES 
eest7$ J0S067 173350 CLR SFEC :CLR FORTRAN FEC 
eeosus 905067 EL CLR FRC :CLR FORTRAN FPC 
eoss0s DUSOE? = 173330 CLR FPS CLR FPU FPS BUFFER 
oesSie 905067 1733e6 CLR FEC :CL& FPU FEC BUFFER 
D0SS18 OOSO067 i733e4 cLR FEC :CLR FPU F UFFER 
O0SSe2 004767 OOLESE ssk PC. BANDMY  ; INPUT DOTA 
505526 OO4467 OOCSHE 0M, S>OLSs ;ENTER POLISH MODE 
006302 $P.46 ;PUSH 4 WORDS ON STACK (LONUM, 
005534 006324 $°. 42 ;PUSH 4 WORDS ON STACK (HINUM: 
O0SS36 CO00S $04 sADORESS OF FORTRAN DIVIDE 
O5540 - $7S7 DETERMI THE COND ITIO! COOES 
355542 356 get Ps, !POP 4 WORDS AND EXIT POLISH “oce 
coss44 018700 173300 MOV PS g0 sCISPLAY FLOATING POINT STATUS 
peeeeo 1701e7 O40e00 LDFPS) = s040200 se ;SET FID AND FD 
OSSS4 72467 173222 LDD LONUM, C0 AD ACO WITH A RANDOM NUMSE® 
SossbD 172557 173ecé Lo MINUM, A&C) :LORD AC WITH A RANDOM NUMSES 
SOSS84 172767 l7se%e LOD oh aca ; AC3 WITH THE SUM 
005870 i70le7 347640 LOFPS = g047E40 :SET INTERUPT DISASLE AND INTESLS™ Sr7t 
SOSSs7$ OCL27&7 SOSéCE DOB460 MOV 8.45, LAD :RESET LOOP ADDRESS 
PRESSES SSFFSSSSLASSSSLSSSSESHSSLSESSLFLESSSSSLELSSLLELRS SSA LE+ESH444 4444444 
SOSéS2 172600 Loo acd, ace :LOAD ACO INTO ACE 
SOSéo4 174601 FETL4: Olvd acl, ace :OIVIDE ACL INTS fice 
SoS80& 170267 173230 STEPS = FPS i aigee FLOATING POINT STS7LS 
O0Stle OOS7E7 1l7szsz2 TST $FES CK FOR ERROR aee 
SOSE1E 100410 BMI ERR L4 : BRANCH IF ERROR FLAG SET 
505625 O26767 173216 72222 cue FPS. $FES ;CHECK FP 
B0S$26 001430 BEG TSTL4 :SRANCH I 
OOSESS 174267 i731&é hes Ace, BNS] i AVE FRY ANSWER 
SOS624 104001 HLT+) FPS ERROR 
SOSESE 500472 af ENDS ‘SKIP COMPRRE 
COSExD 170367 173200 FSPis:; STST FEO : STORE FEC AND FEC 
Socs: 767 373172 i72i7E cme FPS, SFES ;CHECK THE FLOATING POINT §Tavus 
coséS2 001402 SES +5 sBRANCH IF OK 
SoseS4 154377 HLT+377 : ERROR 
SOSESE SOCsEE =e END I4 *SkIP TO END 
DCSSb0 4Deb7E7 «i72ltl «i7zise OME FEC SFEC CHECK THE FLORTING EXITEFETIIN CIDE 
cosésé 86901 4Ce SE3 5 :BRANCH I IF OK 
305670 104377 HLT *377 sFEC IS WRONG 
cose7e oCO4s4 g* END LS sSKIP TO END 
8 Tie athe i73ais& 1731Se CMP FRC ,SFPC i CHECK hie © 
SsEPre Sl He SES TST.4 BREN oe 
wos eo head HUT 4377 ae stteess IN FE 


3 OCF PL PLOSTING POINT DIVIDE EXERCISES MACY11 27(732) I6-SEP-7E 16:30 SAGE 
oe eS\ SECTION 
SoS"06 O0O446 BR ENDI4 SKIP TO END 


25712 pare? DOCGOE 73132 TSTIM: BIT 8B, SFPS:CMECK FOR OVERFLOW 
SSE>iB Ob1o4e ! ENdI4 iSRANCH IE, OVEREL OM 

seecse ifgige CMPD OAC, «= AC.—«Ss=it« COMPARE FPU ANSWER TO FORTRON 
} 3 ect :COPY FLOATING CONDITION CODES 


8&9 ENDI4 : ANSWE ¢ CK 
is sMPENSATE FOR FORTRAN tNacCURACIES. 


905726 174267 173070 Sie ‘ 1 ;SAVE FPU ANSWER 
05732 bases 09000] 173070 AOD 8! ANS 146 INCREMENT NBHER cweR 
555745 OOSsé? 173062 ¢ ANSi+4 
505744 905567 173054 ane ANS1¢2 
so! OoS5E 7 17304 ade ANS | 
"SY 173767 1730%e CMPD ANS], ac3 CK ANSWERS AGAIN’ 
555765 179000 crcé tne S FLOBTING SONDITION I2CES 
005762 001420 E35 ENDIS “BRANCH IF C 
595764 ibe7b? OO0002 17303 sus 82, ANSLe& ISECREMENT Feu ANSHES 
05772 OOS? 173035 58¢ ANS 144 
OOS?77& GOSSE7 173022 sec ANSi¢2 
056002 605667 173014 587 NS! 
JCED9E «173767 «173010 oMED ANS? B23 sIHECK ANSWERS G87 
506012 1709 cree :COPY FLOATING CONCITION CODES 
566514 801453 555 END! “BRANCH IF OK 
SOBDIg i?uee? 173000 STD Ql2, aNS: SAVE SPU ANSWER 
O0e0e2 04000 HLT FEL AND FORTRAN DISEGREE 
S624 OOS%E? 173012 ENDi4: CLP res “18 EPL EPS SUFFER 
se Sek a fa aie aes 


a 


MRINOEL #2 2-00 FPL=d FLORTING POINT DIVIDE EXERCISER MACTII 27732: J&-SEP-7E 16:30 PAGE 
FP Fis SELL AND SCOPE ROUTINE 


REPKsh Rae Dae 002000 i77S7C DONE: Bi 
526942 Ole7&? 900207 o0212 M 


ee pate O17 me 


O10000 9 i77sr 


o« 
4 


ppadcsam sRING THE SELL” 
i sNOS 

SBELL,. TYPE ;TYPE A BELL 
TYPE 


U¥ 
vee. ol 
LR =(6) ;CLEAR TRACE THAP 
17 aSWi2,asSWe RUN WITH TRT? 


ZMOWOwwc.--4: 
Lo) 


sete See oaro6 an: 

Sete fESSTE googeo 1 rie 6 SET TRACE TRAP 

weww! f ~ ~ 3 Pa H T Tf 7-10 aa T"| 

ae ber 606132 Ay ess; =(6) «=. SUMP TO START OF TES? 
sete : RY : 

506108 1274s 006114 2s: MOV es, -(6 -JUMP TO START OF TES? 
S56it2 o09002 ETT : seat Fr an. one eae 
556114 O13700 coooMe 48: Moy 842. PO :GET MONITOR ACDSESS 
seeide SAS : so t(‘dg SSCS wwe" 

Od&i22 OO4710 in 860 Fee 230 70 MONITOR 

aie es “3 

606130 90040 ; NOF 

S0e13¢ O0013? oooz00 38: IMP 0 s«-ga200 .IUME TO START OF TEST 
06136 doodc2 YESR?: AT! [RETURN TD PROGRAM FROM TREE 


206130 932737 SOCHODITTETS EMT: B27 #5408, S258 ;KILL LDUS OF LOOP ON SPEC. “ES 
ww ° = = ‘he om coy i 
so5i50 heave? 177570 172622 SRS gaSWR, CNT ;ON RIGHT TEST?  #Su7-08 
woe Poet] ] UV 
sob1é6 113703 177570 13: MOVE = aSWR,R2 ;GE7 US BITS 
556166 O32737 C4O0d0 177570 sty 8SWl4, JaSue LOOP ON TEST 
Boei74 O10 sie? eS + gene eee ee 
$0617 036/37 904000 177872 Eis Si] 1, D8Sh SKILL ITERATIONS 
2 . ‘ Ss iL 
Soesiz aoraey +e gE ai 
Spsei4 126767 002770 172887 CMPE «= TIMES,ICNT#: ©: DNB? ¢ 
See2e 801013 ia BNE KIT BRANCH IF NOT 
ae 112767 000001 i72547 2§: MOVE = 81 ICNT#1 :FIRST ITERATION 
D0bes2 10567 i 7es4e SAVLAO: INCE =ICAT :COUNT TEST NUMSERS 
=soc38 =i 1887 46 MC'v {6),L85 sg SHVE LOOP ADDRESS 
i 016737 172532 1775 ~ MOV ICN’ .aSsDISPLA’ : DISPLAY TEST NO. 4 C ITER STI? ‘ 
3cé250 Stnod2 BF] : RETURN 
ooses2 105267 172523 “IT:  INCB ICNT#L 
S06256 016737 172616 i77572 OVER: MOV TENT, SaCISPLAY SET UP _DISPLS 
eeecét QOS767 Coe7le TST LAD TRS” ONE® 
erFeaz eeaS) -- ae SAY ARE 
esSete 2:$72 SCE7I+ my Ao, E sELOSE RETURN ACORESS 


pieDFe eo ERDSTING PCINT DIVIDE EXERCISER MACYI1 275732) 16-SEP-76 16:30 SAGE 3: 
ii FORTEAN POUTINES (POLISH MODE) 
S06S90 O00i34 SFOLSH: IMP ai R4)4 
228302 gery 172502 $°. 4A: Mov LONUIMeE, =( SP) 
van f f 7 lve r. LONUM+ 5 
Seat Bese ieNe $P.28: ne bina = 
eepeie EAR TE + eHBC ™ ee 9 
D0S324 OLSTHE 172479 $6.48: MOV HINUM+6, -( SP) 
006330 CIsT4e 172462 MOV HINUMS4 =: 5) 
Phes34 OIETHE «172454 $°.28: MOV HINUMS2 | = SP 
BOES4O CIE7HE 172446 MOV HINUM, '-(5E, 
OC&344 O00i34 IMP a(RY 6 
O26346 12667 172460 $0P2x: MOV (SP)+, ANS 
ee Cieb&? 172455 OV (SP)+, ANSo+2 
0063568 o00204 BTS Ru sEXIT POLISH MODE 
996360 912667 17244 SODE4K: MOV ($P)+, ANSE 
506364 012667 i7ss4s may 5P)+) ANSZ+2 
S06370 lesb? i7Ds42 ON (5P)4,  ANSZ<5 
COB374 D1DEE7 172445 moi SP)e, aANdoes 
ode4oo 4Sode04 Rts sEXIT POLISH MODE 
oos402 032767 100002 :7f440 $7S7: BIT 8100002, $FPs CHECK FOR ERROR FLAG ANS 2¥E8FL74 
906415 190453 Bey $7ER TBRANCH IF FLAS SET 
506412 O81061 5NE $7CV :BRANCH IF OVERFLIW 
306414 O32716 o77600 B:T #077600, (6) :TEST THE EXPONENT 
506420 0104: ae ENE $TST : BRANCH IF NOT ZERO 
Ooé42e 052767 oco004 172420 Bre 204, SFPS ;SET 2 BIT 

6430 032767 Bose {SEES ert 8077600, HINUM CHECK DIVISOR FOR ZERO 
506436 001932 i BNE Tl 'BRANCH IF NON-ZERO 
D0e440 052767 190000 172402 B15 #100000, SFPS : SET THE ERROR FLAG 
COS446 012767 00004 172372 MOY 634 SFEC = ;DIVIDE BY ZERO EXCEPTION <ICE 
O0b4S4 36701 172320 MOVE rent, R} :GET THE TEST NUMBER 

4 sui ASL : Se 

Obe4ee O16167 oogs7e 172364 Moy FE TAD- 2(Ri), SFPC 3GET EXPECTED PC 
SOS470 QLE7IE 172306 : MOV LONUM, SP! sRESTORE CIVIDENC 
056474 S176 172304 o0ndcz MOV LoNuNs2, 2°SP : 
Soesde i05767 i7esde TST §FeS :CHECK FOR DOUBLE PRECISI< 
856506 190006 BP 37ST) “BRANCH IF NOT 
596510 OS1E766 17227e o00004 MOY LONUM4,4°SP) 
OCESIE CIE7EE 17226 D00TSs Moy CONUMSE 6 °5P) 
556524 COS7i6 STST1: YS? (SP) : FIND "THE SIGN 
StcSs6 105053 oP, $7sT2 :SRENCH IF SLuS 
506530 952767 o00010 172212 BIS sic, SFPS :SET N BIT 
BFeS36 900124 g7ste: Is ai 84) 
SOES4D 116701 172234 STER: MOVE ICNT, Ri} :GET TEST NUMBER 
*FeS44 89525) DEC ej :SET POINTER 
*Fefee 0625) ASL g} -TEST @ # 2 
SOeSSC SIG1E? O0GST4 172E76 may RETAD:1),$FPC  :STORE FORTRAN FPL 
R*ccSE Fbstse 370 = ME ‘Spi, {SEis :"POP™ 2 WORDS 
SZeSEl LCS7E? 1 TEzEH TSTS) 3s SFPS “CHECK FD BIT 
Beeces 15007) SPL S761) ?BRANCH IF FLOATING MODE 


wm NOE <5 Se OCF PUNE Fi. 6 POINT Olv SER mac (732) 1 7% 
® SBT ING POINT VARE as MACYI1 27(732) I6-SEP-76 16:30 SRGE 32 


ooFPlLL Fis ESBTRAN” RoU*ines (POLISH 

ooEERE pe2bet =Me 20)4 ep) Lepspe 2 

Ses" B05*34 stovi: 67 a °S aa AnD ORE WoG0S 

m - RAAF oe z 0 RY si iF opx” ROUT? NE 
Sos: é oocecs RT RY :Ext T POLISH MCOE 

O08574 901342 SETaD: SET; 
Sere 1636 mae 
= 266 ei RETS 

vusble Wee RETY 
Sdes04 902732 RETS 
~~o6 003242 RET 
556610 03672 RET? 
S0s6iz2 S04i1¢e BETIC 
Soeeis Dowie: RETIT 
pate Sbece atk 
Sogs22 005604 RETIS 
poppe’ prone? ObeNCS SERRA: (MP = RO, aZuOS CHECK FOR UNDER OW, FO=C 
BOE832 Oeb02e7 cosoos Reg SUNORO ” BRANCH IF UNDERFL Ow 
906636 9014 as RO... a4005 ;CHECK FOR UNDERFLOW, FO=: 
a BE3 = SUADRI SBRANCH_IF UNDERFLOW 
oe i. see gg 82003 CHECK FOR OVERFLOW, FO=0 
Ooee4e dedce? 02002 De eet ae eee 
506652 901462 _— tte =? / sc003 ; CHEC F Ov RFLOW, FOs! 

Sees pines BE CVER: —— ; BRANCH IF OVERFLOW 
BOSPs Pee’ OC4O03 se Feigry M4002 CHECK FOR DIVIDE By Zeng, FL=C 
NOES 20027 Oor4oR one $oV820 : BRANC IF DIVIDE BY ZERO 
posebe Onissy eo sbvez, eo TERR FOR BRIVIS BY SERe. POs 
066670 500050 SUNKER: HALT :BRANCH iF DIVIDE By ZERC 

206672 aa OCs :7180 $UNORO: BIT — BODZ000,SFPS CHECK FOR INTERUPTS ON OP OFF 
sseite OOiaes 177372 uF R49, - SPOLSH VENTER POL 13H MODE 

SOE710 Oza 3°. oR 2 WORDS ON STACK ‘LONUM) 
Beri Berrie ceSkc a; 5 HOBBS ON CHINUM) 
096714 000006 sve TRACT 2 FRO Fe EXPONENT OF THE DIVISC 
506716 07122 3200S8 ADDRESS OF FORTRAN DIVIDE 

A567. Oa. aS gcer SU UBTRACT 200 FROM Me EXPONENT 2° SNS 
else Bene BDL DETERMINE CONDITION CODES 
Boe726 32767 GCZOCG I7Ei14 SLNORL: BIT 8003000,SFPS CHECK FOR INTERUPTS ON OR OFF 
Soerse DOE? 17733¢ Re bE: Bae 

506742 006302 . oe sENTER POLISH MODE 

Rrerig pprane F.4 PUSH 2 WORDS ON STACK <LONUM) 
AlEoue DOT TSC aea38n :PUSH 3 WORDS ON TACK (HINU™) 
556755 ooronosG gn :SUBTRACT 200 FROM THE EXPONENT OF THE DIV 1508 
apeves HOviDS a0 ;RODRESS OF FORTRAN DIVIDE 

ReeseG Runs $200 :SUBTRACT 2CO FROM THE EXPONENT OF Ns 
SOe756 A0ezEc RPcP4y 3 Be TERM INS SOND TT ION CODES 
SSer7ee DEST? 100000 17ecee suNoRA: Bre ascoooo.sees © feet PPO ERROR Flags 
ssS75E C1757 SCOLIE TENSE mov =e, = SFEC iE! LNOERFLOM EXCEBTION, 2008 

wwIwewS RTS i) 1 TQ FORTRAN ROUTINE 


~S INDE S 


i i Biel 
8." 


-_*. 


= 


“ee 


557142 
907144 


res: 


é 


~~ ewe 


67 
000295 


16271 
009134 


062716 
000134 


062716 
009134 


000134 
CO44E7 
OOES4E 
OOS40s 
OO44E7 


Senta 


FLOATING POINT 


FORTRAN ROUTINES (POLISH MODE) 
iPreré $OVERO: JSR 
$P.28 
$P.25 
$AD200 
$OVR 
$200A0 
$7Si 
$POF ex 
BR 
177252 SOVERL: JSR 
$P.48 
$P. 48 
$AD200 
§$OVD 
$200AD 
$TST 
$POP4X 
OO3900 171776 SOVERA: BIT 
SEo 
300000 171786 SIs 
Q000!9 i7l7ée MOV 
080052 i71752 $oVRi: BIs 
SERTS: RTS 
540000 $S8200: Sus 
IMP 
140000 $2900: ADD 
IMP 
040000 $ADEOO: AOD 
vi 
040000 _  _—s $2005: sus 
G058S3 170642 BIT 
yp BEG 
100000 ADD 
$2°1S8: JMP 
177335 $°VBZ0: JSR 
$F .2A 
$TSyT 
$POP 2x 
oe 
177il4 SCVEZ1: JSP 
SP. 4A 
$TST 
SPOPYX 
100GSS 17:&5C $0V8ZA: BIS 
DOOCS4 171644 MOY 
RTS 


DIVIDE EXERCISER 


MACYI1 27(732) 


RS, $POLSH 
SOVERS 
R4, SPOLSH 
ea, 
elrocce, SFPS 
si SFE 
#52, $FES 
Oe, (SP) 
atk 
#140000, ‘SP) 
as R4)¢ 
8049003, (SP) 
a(R4)+ 
#040000, SF) 
$2f:sa 
#100000, (SF) 
ai R4)+ 
R4, SPOLSH 
$OVEZ5 
R4, SPOLSH 
#100000, SFPS 
aos, SFEC 


16-SEP-76 16:30 SAGE 33 


mo 
ON STACK (LON, 
ON STACK (HINUM) 
He iPoneN OF THE DEVIS0= 


Mone 


Sie 


Cod 
EXIT POLISH 


CODES. 

° x ‘ POL 2 SH MOCE 

: CHECK rie Awe ERUPTS ON OR OFF 

: BRANCH F OFF 

T FPS "ERROR FLAG 

OVERFLOW EXC eer ION. 
OVERFLOW SI? IN FPS 


Et de dead 


ENTER Pou ISH MODE 


cones 
il 9 )6; 


‘BOB OIVIDEND: th 3 RNSAES 


sENTER POLISH MODE 
SPUSH DIVIDEND i 
;CALCULATE CONDITION CODES 
:POP DIVIDEND. INTO ANSHES 
:SET FPS ERROR FLAG es 
:DIVIDE BY ZERO EXCEPTION CODE 


SRETURN TO FORTRAN 


FEL SELEREEESPES FE LPF SP ES ES LPI LESLLSS -HEFEERALELERHRE RS SAA SLSSHSE SSH ESD 


1<COFP UMD FLOATING WT RIV IDE XERCISER MACY11 27(732) i6-SEP-7— 16:30 PAGE 34 
FORTRAN “aout OLISH MODE) 


3PPP INTERUPT SERVICE ROUTINE 
;RPRRERSERRERSESSPEEEEL EE RELASERESSSERELESERSSESESSESERESESSES SSS SOOO 444 


Df7210 170267 171626 FLTERR: STFPS FPS ;STORE FLOATING POINT STATUS 
557215 170367 i7ibey Stst FEC :STORE FLOATING EXCEPTION CODES 
57220 032767 O4005c 17:22 Bry = a000, sFPS CHECK INTERUPT DISABLE 

557226 901402 BEQ 46 BRANCH HIF OFF 

557230 «194377 HL T4377 INTERUPT NOT SUPPOSED TO BE ENASLET 
EE7E32 o00%04 oF ERRT! 

DOTE QOSTET «17110 TST = $FPS LCMECK FORTRAN FPS FOR ERECE Flo 
BBra4O D045! BMi ERAT! :BRANCH IF FLAG SET 

ZEcEaZ [54354 ML T4207 :FLOATING POINT STATUS EeGOR 


FLOATING POINT DIVIDE EXERCISER 
RANDOM NUMBER GENERATORS 


001502 
001512 


177771 


00i0S7 
04740! 


ocooc 


O0i8C 


MACYL1 27(732) 


“3 
e47401,%1 
4 


86, 
Ey? 


“1 
= (404 


aut aL hte 


;SAVE RO 


SET SHIFT COUNT 


How Rn 


CON ONTINGE oe LOOP 


ADD NUMBER TO MAKE x 129 


weds 


SOOO AFCHE SS CONSTART 
Pst uitH HIGHEST DIGIT 
POGATE CAR 


:SAVE R1 
: CHECK FOR DONE. a 
: BRANCH athe 
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RINOEC= i1-DCFPU-D FLOATING POINT DIVIDE EXERCISER MACY11 27(732) I6-SEP-7E 16:30 PAGE 36 
ates Pil RANCOM NUMBER GENERATORS 


0 RRNOMY: Vv %0,-(6) ;SAVE RO 
Bt “Be BiB as oom ieee RO 
MOV 42, -(6) ;SAVE Re 
tact V %3,-(6) :SAVE R3 
art 1 MOV %4' =(6) ; RY 
741g O10 MOV %S' -(6) AVE RS 
507420 Ole704 o010Ce MOV sLONUM, %4 :SET UP LONUM POINTER 
607424 912705 o01Dle MOV SHINUM, %S : SET UP HINUM POINTER 
sors 114 MOV (4), %0 ie O WITH LOW 
74 11501 MOV (5) ,%1 T Rl WITH HIGH 
007434 012703 177771 REPETY: MOV 8-7.%3 :SET SHIFT COUNT 
oo744o sosode CLR %2 
007442 006300 SHIFT4: ASL “0 :SHIFT RD LEFT AND 
7444 006101 ROL %} : ROTATE CARRY NTS Bi AND 
; rae B06 ROL “8 ROTATE CARRY INTO 
? INC “3 :CHECK FOR DONE 
7452 001373 BNE SHIFT :CONTINUE SHIFT LOOP 
907454 061402 ADD (4) ,%2 :ADD NUMBER TO MAKE X 129 
997456 005501 ADC “I :PROPOGATE CARRY 
907460 061501 ROD (6),%1 :ADD NUMBER TO MAKE X 129 
502 Age “2 :PROFOSATE CARRY 
4 700 001057 ADD #1057, %0 :ADD LOW CONSTANT 
907470 O0S501 ADC %} :PROPOGATE CARRY 
72 5 ADE %2 : GATE CARRY 
007474 062701 O47401 ADD 847401, %1 :ADD HIGH CONSTANT 
907500 90ss02 anc %2 :PROPOGATE CARR 
007502 O62702 ooo00 ADD 86, %2 :ADD HIGHEST CONSTART 
7506 ADD %2,%0 :REPRINE RO WITH HIGHEST DIGIT 
007510 005591 ape “1 :p OOGAT E CAR 
007512 01 MOV 40, (4)+ SAV 
607514 O10125 MOV %i'(S)+ :SAVE R1 
p0751 0427 oO01012 CMP “4 aL ONUI+ 10 :CHECK FOR DONE ENOUGH 
22 001344 BNE REPETY “BRANCH IF NOT DONE 
7524 012605 MOV (6)4+,%5 RESTORE RS 
01260 MOY (B+, %y "RESTORE RY 
7530 012603 MOV (6)4°%3 :RESTORE R3 
07532 Ol2602 MOY (b)+°%2 *RESTORE Re 
007534 1260! MOV (634° %1 RESTORE R1] 
907536 912600 MOY (6)4,%0 SRESTORE RO 


UO7SSO 800207 RTS % : RETURN 


_ MRINDEC-11-DCFPU-D FLOATING POINT DIVIDE EXERCISER MACY11 27(732) 16-SEP-76 16:30 PAGE 37 
DCFPUD.P1i HLT ROUTINE (ERROR TYPEOUT) 


O07S4¥2 O3e767 COe000 170020 .TRP: BIT _ 


7 001416 MOV #BELL,. TYPE : TYPE @ BELL 
sith TYPE, iis 
4 005267 001414 ET: INC ERRORS ;COUNT THE NUMBER OF ERRORS 
907570 032767 020000 167772 BIT #20000, SWR :SKIP TYPEOQUT IF SET 
ae”, 
BBE EB erty 171216 ene Ace, ANS!  ;SAVE THE ANSWER TO BE SURE 
7604 O00004 9011102 TYPE, RET 
7610 OO0094 011102 TYPE, RET 
007614 O11646 MOV (6), -(6) sPUT ADDRESS OF INSTRUCTION ON STACK 
007616 162716 oo0002 Sus se, {6 
O7be2 117667 00000 901356 HOVE 06), WORDS thee cate tor Ore 
& 7630 : sf 4 
007632 osp3 JSR 4%? PRINTR :TYPE LEADING ZERO’S 
011077 TYPE, SPACE+3 
007642 012703 001002 MOV #LONUM, %3 :SET UP POINTER 
7646 004767 9001 JSR ? —  :TYPE A FLOATING POINT NUMSER 
007652 011105 TYPE,  S$SIGN 
007656 004767 000164 JSR ? $TYPE  ;TYPE A FLOATING POINT NUMBER 
7 Oill TYPE,  FPUA 
67 154 JSR : TYPE A FLOATING POINT NUMBER 
7672 C4 011076 TYPE, SPACE+2 
007676 O16705 371149 MOV FPS TTY sTYPE FPS IN ocTal 
7702 004767 O00476 ISR %7 PRINTR :TYPE LEADING ZERO’S 
7706 105767 001274 TSTB WORDS :CHECK FOR STATUS ERROR 
007712 i00014 BPL STAT :BRANCH IF NOT 
007714 011076 TYPE, SPACE+2 
007720 016795 171120 MOV FEC, TTY ; TYPE FEC IN OCTAL 
997724 004767 Ood4s4 JSR %? PRINTR : TYPE LEADING ZERO’S 
7730 011076 TYPE, SPACE+2 
007734 O1670S 171106 MOV FPC. TTY : TYPE FPC IN OCTAL 
7740 004767 Oo00440 JSR 47 PRINTR : TYPE LEADING ZERO'S 
007744 O11111 .STAT: TYPE, FORTAN 
007759 004767 900072 JSR ? $TYPE :TYPE A FLOATING POINT NUMBER 
907754 105767 OOlee6 NOHEAD: TSTB WORDS 
7760 001425 BEG NHEAD 
007762 00004 011076 TYPE,  SPACE+2 
007765 016708 71056 MOV SFPS, TTY :TYPE SFPS IN OCTAL 
00777e 767 OO0406 JSR “47, PRINTR ;TYPE LEADING ZERO'S 
907776 105767 901204 TSTB = WORDS 
010002 100014 BPL NHEAD 
010004 000004 011076 TYPE, Space +2 
016010 016705 171936 MOY SFEC. TTY ;TYPE SFEC IN OCTAL 
019014 004757 000364 JSR %7, PRINTR ;TYPE LEADING ZERO'S 
610020 so0004 011076 TYPE, SPACE+2 
019924 016705 171924 MCV SFPC. TTY : TYPE $FPC IN OCTAL 
010030 004767 O00250 ISR 47, PRINTR : TYPE LEADING 2ERO'S 
019034 605727 177570 NHEAD: TST aa 
919040 190001 BPL +4 
510642 000000 HALT 
Sioo4s 9ocdte RT! 


Ss 


MAINOEC-11-DCFPU-D ELpATING POINT DIVIDE EXERCISER MACY11 27(732) 16-SEP-76 16:30 PAGE 36 
OCFPUD.P12 FLOATING POINT TYPEOUT SUBROUTINE 


O1004% 032767 OOL000 167514 $TYPE: BIT #1000, SWR :CHECK TTY FORMAT 
15054 001007 TYPE 
1 1057 7 170766 STB FP 
j BMI (PED 
019064 767 O0007& ISR ? TYPEF 
910070 022323 TYPEA: CMP (3)+, (3)4 UP DATE THE TYPEOUT POINTER 
610072 900207 RTS ? 
010074 TYPEI: 
pion SRaSE? 0003 WOR SS PRINYR «= ETYPE LEabrid SE RO"S 
pate sete YPE, SPACE+4 
010108 012305 MOV (3)4+, TTY :TYPE (2)4 IN OCTAL 
016116 004767 000270 ISR %7, PRINTR : TYPE LEMDING ZERO’S 
010114 105767 170730 STB OSS 
010120 100363 BPL TYPEA 
010122 O00004 011100 TYPE, SPACE+4 
010126 012305 MOV (3)4. TTY sTYPE (334 IN OCTAL 
00130 004767 god25G JSR %7 PRINTR - TYPE LEADING ZERC’S 
10134 000004 011100 TYPE, SPOCE+4 
010140 012305 MOV (3)4+. TTY :TYPE (3)4 IN OCTAL 
010142 004767 o00236 JSR 4%? ,PRINTR : TYPE LEADING ZERO’S 
010146 000207 RTS ? 
010150 012346 TYPED: MOV (3)+,-(6) :GET WORD 1 
019152 O1e346 MOV (3)+,-(6) :GET WORD 2 
610154 012346 MOV (3)+,-(6) “GET WORD 3 
010156 012346 MOV (334) -(6) :GET WORD 4 
010160 012746 900022 MOY #18.°-(6) :CHAR COUNT 
910164 O00406 BR TYPE! 
00166 012346 TYPEF: MOV (34, -(6) :GET WORD 1 
10170 012346 MOY (3)+) -(6) :GET WORD 2 
010172 OOSO46 CLR -(6) ?CLEAR WORD 2 
610174 ooso46 CLR -(6) 
O1Ci7 012746 o00010 MOV #8. -(6) :CHAR COUNT 
91020e 004767 oO0104 TYPEL: JSR 7,771 : TYPE 1 BIT 
010206 105766 Oo000!1 TST 3’ (6) “CHECK EXPONENT 
916212 o01001 BNE +4 :SRANCH ON NON-ZERO EXPONENT 
010214 OO5116 COM (6) :FLAG ZERC EXPONENT 
610216 00004 011100 TYPE, SPACE+4 
010222 04767 900072 JSR 7,TY2 : TYPE 2 BITS 
010226 004767 000074 JSR 7'TY3 :TYPE 3 BITS ‘ 
010232 004767 9090070 ISR 7'TY :TYPE 3 BITS 
016236 000004 011100 TYPE,  SPACE+4 
010242 004767 o00020 eer a : ;TYPE 2 BITS 
O10e46 004767 coD0s4 TYPEZ: JSR :TYPE 3 BITS 
1 005316 DEC 6 : DONE? 
910254 001374 BNE TYPES 
810256 O22b26 CMP (B)+, (b)4 : RESTORE 
510260 Oeebee EMp (B)+) (b)4 : THE 
O10z2 o0S726 TST (Ei+ : STACK 
CiDee4 00207 RTs ? 


NN EEE — 
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OCFPUL.Pil FLOATING POINT TYPEOUT SUBROLITINE 


1026 005756 cooo02 TYH: TST (6) :CHECK FOR oy Fees Bi EXPONENT FLAG 

RTE: 0001 AOy ae egos HIDDEN BIT AND ENE 
-{ 4 0 

ioe ee? ese nov 16) 4° YPE FUDGE HIDDEN. itr 

10306 166 TY2: COM 2(6) ;GET RID OF ZERO EXPONENT FLAG 

910312 012746 o00031 TYis MOV #1,-(6) :TYPE 1 BIT 

015316 os TY 

l ze oooose Tye: Mov §e,-(6) :TYPE 2 BITS 

1 B Y 

1 012745 3 TY2: MOV 83, -(6) ;TYPE 3 BITS 

p1033e 7 000640 TY: CLR _ TYPE 

10336 O06166 O00006 ROL 616) :SHIFT WORD 4 

b1034e 006166 000010 ROL 8. (6) :SHIFT WORD 2 

10345 006166 900012 ROL 10. (6) :SHIFT WOR? 2 

1036¢ 166 000014 ROL le. (6) : SHIFT WORD | 

1 167 000614 ROL . TYPE :GET IT 

10362 005316 DEC (6) : DONE? 

019364 001364 BNE TY+ 

010366 OS2767 oo0006C oDD6ce BIS #°0, . TYPE i WAKE i ASCII 

Bi 74 pp0004 OL117& TYPE, TYPE YE 

itsog Be TST ‘e)e ae Sobe THe sta 

610402 000207 RTS ? 


Si}-OCFPU-D FLOATING POINT DIVIDE EXERCISER MACYLL 27(732) 16-SEP-7& 16:30 AGE 4¢ 
1 Geert ocTAL DUMP OF A 


21404 442767 200001 000130 PRINTR: MOVE 1, .PR si 
siBvis Bosoe? 99012 PRINTS: CLR :PR : SUPRESS sateen 2E"0"S 
ERE GS OE ccs HE he iF, cea 
4 =(6) T RECII tune 
<i i MOV -#3$, 84 see POINTER 10 FIRST ASCII CHAR. 
ine Vente, eet) iota Ae ee 
ging! peaches 55 2g orale esc 
i838 eae 13 CLR 4) mm eee 
seatiy ie0) ROL TT ROTATE Pa? INTE = 
gidt4e 006105 ROL rid) Ke eutn F 
sini? Apell Ro OTTY :RO ATE @17 INTO ¢ 
si3¥S0 i0bii3 0 Rt incre BIT INTO C 
iN geile Rag 
Sid4Se 1057} Ee 
Sibves osee? poco {4B ER SCMECR FILL SaiTis 
5 Se I natal 
ale iSe7e4 ee ie pes) nounes 

ww 3 a at 
Se Be 030532 i 023.8% 
b} 1902 NE on vate 
Sides lieve 00080 tt RA, 
fF —— pe -*yee °° 
310530 000207 7 
a-nces 3 . Lk 4 
3 Ee et Bee 
— oR: INC PRORS PC OUNT ERRORS 
oi 2535 ee oooei4 00004} RM: Pe es sAUTO & OE 
SISS5— 00147 * de 33 810, ERRORS 750 MANY? 
wow ‘ e - ~~ . . 5 a 
sivere 13700 CO00HE 8 ape sFoRGe? 17 IF 2e8: 
siege Eeeoe? D000 He BSE, SPALL THE MONITOR 
es yete xnlis ‘3 BF pr’ RE? LEN 


Sage <: 
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© laa lai tal » . ‘ a 
--e-<- > > Ca) + wy awe aa) 
wo xz Le ‘Tha lat tal tai tettad 
ia. « w mw ans 9 1s a mw . 
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~? ONODOOOKD - . ul - iw ws CO- «od cant IFO Fy 
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